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Abstract 

This  document  is  the  Final  Report  of  a  two  year  project  at  the  Institute  for 
Simulation  and  Training  supported  by  PM-TRADE  under  contract 
#N61339-90-C-0041. 

This  project  has  two  components.  The  first  component  is  the  construction 
of  a  six-monitor  head-traddng  display  (HTD)  to  provide  the  tank 
commander  (TC)  in  a  SIMNET  MlAl  Abrams  simulator  with  a  360-degree 
panoramic  view  into  the  SIMNET  database,  without  requiring  additional 
image  generation  hardware.  This  component  successfully  demonstrated 
the  concept  and  highlighted  some  of  the  difficulties  to  be  overcome  in 
building  a  production  simulator  using  HTD  technology. 

The  second  component  is  the  investigation  of  low  cost  head-mounted  display 
(HMD)  technology  for  simulators.  This  component  included  attaching 
HMDs  to  several  available  realtime  image  sources,  and  describing  the 
difBculties  and  techniques  used  to  overcome  the  diJGBculties.  Ultimately, 
four  image  sources  were  used: 

•  Silicon  Graphics  Iris  workstations; 

•  An  Evans  &  Sutherland  ESIG-500  image  generator; 

*  The  SlhOIET  simulator's  image  generator;  and 

*  A  low-cost  (PC-based)  SenseS^tel  DVI  graphics  system. 

The  two  best-known  commercial  HMDs  costing  less  than  $10,000  were 
evaluated:  VPL's  EyePhones  (in  two  versions)  and  PopOptiz  Labs' 
CyberFace.  Of  the  three  product  versions,  only  VPL's  second-edition 
EyePhones  approached  an  acceptable  level  of  resolution  for  training 
simulation.  The  devices'  limitations,  and  technical  trends,  are  discussed, 
with  recommendations  for  further  studies. 
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L  Introduction 

One  of  the  most  obvious  limitations  of  low-cost  simulation  technology,  as 
exemplified  by  the  the  SIMNET  team  training  system  is  the  restricted  field 
of  view.  In  a  real  MlAl  tank,  six  "vision  blocks"  (periscopes)  provide  the 
Tank  Commander  (TO  with  essentially  a  complete  360  degree  field  of  view 
(FOV).  Each  block  spans  approximately  a  45  degree  static  horizontal  FOV, 
but  the  TC  can  move  his  head  from  side  to  side  to  view  more  than  60 
horizontal  degrees  of  the  surroundings  from  each  vision  block. 

In  the  SIMNET  system,  in  order  to  achieve  an  acceptable  pixel  density  for 
target  acquisition  and  navigation,  three  320  x  128  visual  displays  were 
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placed  side-by-side  to  simulate  one  MlAl  commander’s  vision  block.  Each 
^splay  was  set  to  span  8  degrees  (vertical)  by  20  degrees  (horizontal),  thus 
achieving  a  60  degree  effective  horizontal  FOV,  and  a  pixel  density  of  3.75 
arc-minutes  per  pixel  in  Uie  horizontal  direction. 

SIMNET's  vertical  pixel  density  is  essentially  the  same,  and 
henceforth  we  will  discuss  only  horizontal  FOV  and  pixel  densities. 
The  aspect  ratio  (horizontal  to  vertical)  of  2.5:1  will  remain  constant 
throughout  these  discussions  unless  noted. 

In  the  healthy  human  eye,  an  image  centrally  presented  can  generally  be 
resolved  into  details  spanning  0.5  arc  minute,  and  so  clearly  the  SIMNET 
visual  system  is  far  from  realistic.  However,  its  designers  determined  that 
within  the  criterion  of  a  3.5  km  maximum  range  to  horizon,  3.75  arc 
minutes  was  adequate  for  target  detection  when  targets  were  moving 
against  the  simplified  backgroimd  of  a  SIMNET  database. 

The  SIMNET  TC  t\irret  rotates  under  the  control  of  a  thumb  switch  on  the 
simulator's  machine  gun  control  handle,  requiring  approximately  12 
seconds  to  rotate  350  degrees.  A  stop  prevents  complete  rotation  (to  protect 
electronic  cables  from  twisting).  This  can  be  a  severe  limitation  if  the  TC 
needs  to  look  in  a  direction  opposite  to  the  tank  cannon. 

The  central  hypothesis  of  this  study  was  that  the  tank  commander  in  a 
SIMNET  unit  is  operating  in  a  handicapped  mode,  compared  to  a  real  tank 
commander.  First,  an  operational  TC  usually  operates  in  POP-hatch 
("Protected  Open  Position")  mode  unless  under  direct  attack  or 
chemical/biological  threat  conditions.  The  massive  hatch  cover  is 
horizontally  suspended  above  the  hatch  opening  to  protect  from  downward 
fire  or  fragmentation,  but  the  TC  is  looking  out  through  a  horizontal  slit. 

No  equivalent  POP-hatch  experience  is  provided  in  the  SIMNET  system. 

Second,  even  when  forced  to  close  the  hatch,  the  TC  still  has  six  high- 
quality  vision  blocks  and  the  ability  to  see  in  any  direction  as  rapidly  as  he 
can  turn  his  head. 

The  questions  we  therefore  proposed  to  study  were  the  following: 

1.  For  closed-hatch  operation:  would  a  TC's  performance  in 
navigation  and  target  acquisition  be  improved  if  the  experience  of 
having  six  instantaneously  available  vision  blocks  were  simulated, 
instead  of  requiring  the  TC  to  rotate  the  SIMNET  cupola? 

2.  For  POP-hatch  operation:  would  it  be  possible  to  provide  visual 
stimuli,  using  low-cost  head  mounted  display  technology,  so  that  a 
TC's  POP-hatch  performance  in  navigation  and  target  acquisition 
could  be  incorporated  into  the  SIMNET  experience? 
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Despite  numerous  difficulties  in  working  with  SIMNET  prototypical 
equipment,  some  answers  to  these  questions  were  achieved.  We  first 
discuss  common  technical  elements  in  both  projects,  namely,  the  ability  to 
track  the  subject’s  head  position  and  orientation.  We  then  ^scuss  the  HTD 
project,  which  took  place  mostly  in  1990.  Finally  we  discuss  the  HMD 
project,  which  took  place  in  1990  and  1991. 

n.  Head  Tracking  Technology 

During  the  first  two  months  of  this  task  (February-March  1990)  we  engaged 
in  a  literature  and  product-information  search.  This  search  provided  us 
with  information  that  was  useful  for  both  projects  imder  this  task.  In 
general,  this  search  provided  us  with  information  concerning  availability 
and  cost  of  head- tracking  equipment  and  head-mounted  displays. 

In  the  realm  of  head-tracking,  at  the  time  of  the  start  of  this  project,  there 
were  only  two  feasible  schemes:  magnetic  and  infra-red.  The  only  IR 
tracker  we  came  across  was  iised  in  the  CAE-Link  head-mounted  display. 
This  system  was  custom-bmlt,  and  replication  would  have  cost  at  least 
$20,000  (our  estimate).  At  the  time  of  the  start  of  this  project,  the  Polhemus 
magnetic  tracker  was  the  only  commercially  available  magnetic  tracker, 
although  others  have  since  become  available.  For  this  reason,  the 
Polhemus  Isotrak  was  chosen.  This  is  a  six  degree-of-freedom  ten-bit 
tracking  device  in  wide  usage. 

The  Polhemus  product  comes  in  two  versions:  an  economical  model  for 
$3,000,  and  a  high-resolution  model  for  $10,000.  The  economical  model 
tracks  spatial  positions  with  a  static  accuracy  of  0.13  inches  while  source  to 
sensor  separation  is  less  than  15  inches,  and  a  static  angular  accuracy  of 
0.85  degrees  within  this  range.  Data  is  reported  with  a  resolution  of  0.9 
inches  eind  0.35  degrees. 

The  high  resolution  model  tracks  spatial  positions  with  a  static  accuracy  of 
0.1  inches,  and  angular  position  accuracy  of  0.5  degrees.  Its  resolution  of 
reported  data  is  .046  inches  and  0.1  degree,  within  a  30  inch  radius  of  the 
emitter.  Both  models  respond  at  a  30  hz  rate.  Two  sensors  can  be  used  with 
a  single  emiter  and  a  time-multiplexed  System  Electronics  Unit,  thus 
cutting  in  half  the  effective  response  rate  of  both  sensors. 

We  selected  the  economy  model  upon  the  recommendations  of  VPL 
Research,  since  it  was  incorporated  with  the  VPL  EyePhones,  and  it  proved 
adequate.  The  high  resolution  tracker  is  usually  used  for  CAD  applications 
as  a  manual  input  device  (stylus),  where  extreme  spatial  accuracy  is 
needed.  The  head  tracking  fimction  is  less  demanding  of  positional 
precision. 

Since  our  purchase  of  the  Polhemus,  a  new  12-bit  magnetic  tracking  device 
has  become  available.  This  higher  resolution  device,  known  as  the  Bird,  is 
made  by  Ascension  Technology,  has  some  advantages,  as  well  as  one 
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disadvantage.  The  primary  advantages  are  higher  resolution  and  less 
sensitivity  to  environmental  distortions  (metals,  EMF,  etc.). 

The  one  known  disadvantage  of  the  Bird  products  is  a  two-foot  radius  of 
accuracy,  vs.  a  three-foot  radius  for  the  Polhemus.  A  version  of  the  Bird 
with  an  eight-foot  radius  of  accuracy  is  expected  soon  from  Ascension 
Technology  in  1992,  as  well  as  a  Flock  of  Birds  that  can  use  up  to  six  sensors 
with  a  single  source.  The  Bird  products  cost  around  $3000  for  a  sin<^le 
sensor/emitter  pair,  equivalent  to  the  economy  model  from  Polhemus.  The 
Flock  of  Birds  uses  a  single  emitter  and  several  (up  to  six)  sensors,  each 
with  its  own  electronics  module.  Thus  no  time  multiplexing  is  required  and 
all  devices  continue  to  respond  at  30  hz.  Each  additional  sensor/electronic 
setup  costs  approximately  $1500. 

In  1992  as  the  project  is  ending,  a  number  of  other  tracking  devices  are 
becoming  available.  Logitec  has  produced  an  acoustically  based  "3d 
Mouse",  which  uses  a  triad  of  ultrasonic  emitters  arranged  in  a  triangle 
approximately  15  cm  on  a  side,  and  a  triad  of  detectors  approximately  10  cm 
on  a  side,  attached  to  a  three  button  mouse.  Unlike  the  Polhemus  and  Bird 
products,  the  3d  mouse  will  not  function  in  all  orientations;  the  sensors 
must  "see"  the  emitters.  This  product  costs  $1000. 

nL  Head  Tracking  SIMNET  Commander  Display  (HTD) 

The  purpose  of  the  HTD  is  to  simulate  the  MlAl  Abrams  tank 
commander's  (TC)  cupola,  which  has  six  vision  blocks.  Each  vision  block 
has  a  45x15  degree  field  of  view  (FOV)  (approximately) .  SIMNET  provides 
a  single  60x8  degree  FOV  tising  three  channels  of  the  image  generator. 

The  HTD  design  allows  us  to  drive  six  monitors  with  the  TC’s  three 
channels  of  the  SIMNET  image  generator.  This  is  accomplished  through 
the  use  of  a  video  switcher  and  the  Polhemus  magnetic  tracker,  under 
control  of  an  IBM  PC-AT.  The  control  computer  reads  the  tracker,  controls 
the  video  switcher,  and  controls  the  direction  of  view  (DOV)  on  the  image 
generator  (IG). 

We  first  describe  the  video  SAvitcher  and  display  setup.  We  then  discuss  the 
experiments  which  were  conducted. 

A.  Tim  ^ad  Trackiiig  Display  Tesdied 

In  the  HTD,  only  the  three  monitors  in  front  of  the  TC's  head  are  active  at 
any  time,  with  each  monitor  presenting  approximately  the  same  FOV  as  a 
re^  vision  block.  This  gives  ^e  TC  a  140x16  degree  instantaneous  FOV. 
Under  control  of  the  PC-AT,  the  video  switcher  and  the  Polhemus  tracker 
activate  the  three  monitors  in  front  of  the  TC.  As  the  TC  turns,  the  control 
PC  shifts  the  output  signals  to  the  appropriate  three  monitors.  The 
switcher  is  designed  to  give  an  insUmtaneous  change  of  view  in  order  to 
eliminate  the  time  now  required  for  the  cupola  to  rotate  mechanically 
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through  the  same  distance.  For  example,  a  180  degree  rotation  that 
requires  six  seconds  in  the  mechanically  rotating  cupola  takes 
approximately  one  fifth  of  a  second  in  the  HTD. 

The  video  switcher  was  designed  and  constructed  by  1ST.  It  takes  four 
composite  video  input  signals  and  routes  them  to  any  of  six  output  channels 
under  the  control  of  the  control  computer.  (Figure  1) 

The  control  computer  also  controls  the  DOV  of  the  IG  through  a  digital-to- 
analog  converter.  This  converter  mimics  the  potentiometer  in  the 
mech^cally  rotating  cupola  to  change  the  DOV  of  the  IG. 

The  control  computer  reads  the  Polhemus  magnetic  tracker  and,  based  on 
the  orientation  of  the  user's  head,  sends  signal  to  the  IG  to  update  the  DOV. 
The  control  computer  then  routes  the  four  input  channels  to  some  subset  of 
the  six  monitors.  The  routing  of  input  signals  to  output  channels  is 
completely  configurable,  and  any  input  signal  can  be  routed  to  any  output 
channel,  the  only  restriction  being  that  oidy  one  input  signal  can  be  routed 
to  a  particular  output  channel  at  a  given  time. 

Three  of  the  input  channels  come  from  the  SIMNET  image  generator,  and 
the  fourth  input  channel  is  available  for  neutral  imagery  from  any  video 
source,  or  can  be  left  blank. 

The  control  functions  of  the  PC-AT  are  provided  by  a  combination  of 
hardware  additions  to  the  PC-AT  and  the  simulator  host  and  control 
software  on  the  PC-AT.  The  hardware  additions  to  the  PC-AT  consist  of  a 
parallel  output  channel  with  some  logic  circuitry  and  a  digital  to  analog 
converter.  The  output  channel  is  used  to  transmit  control  signals  to  the 
video  switcher,  and  the  converter  is  used  to  control  DOV  on  the  image 
generator.  Both  the  output  clmnnel  and  the  converter  reside  on  a  single 
prototype  bus  card  (called  the  interface  card)  in  the  PC-AT.  In  addition  to 
this  interface  card,  a  game  port  card  has  been  added  to  read  the 
synchronization  signal  from  the  simulator  host. 

The  modification  to  the  simiilator  host  consists  of  a  small  circuit  that 
detects  when  the  simulator  A/D  card  has  been  read  by  the  host.  This  circuit 
sends  a  signal  to  the  control  PC-AT  to  allow  for  a  measure  of 
synchronization. 

The  control  program  for  the  HTD  is  fairly  simple  at  a  conceptual  level. 
(Figure  2.)  It  has  two  basic  responsibilities:  sending  the  TC's  DOV  to  the 
IG,  and  telling  the  video  switcher  which  input  sign^s  to  route  to  which 
chsmnel.  The  control  program  reads  two  inputs:  the  magnetic  sensor  and 
the  synchronization  signal.  The  oxily  two  outputs  from  the  program  are  a 
control  word  for  the  IG,  and  a  control  word  for  the  video  switcher. 
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The  outputs  from  the  image  generator  are  in  the  form  of  four  signals:  red, 
green,  blue,  and  S3mc.  There  are  three  channels;  Tank  Commander  Left 
(TC-L),  Tank  Commander  Middle  (TC-M),  and  Tank  Commander  Right 
(TC_R).  To  reduce  cabling  requirements  and  switcher  complexity,  the 
signal  is  encoded  using  a  Vid  I/O  video  encoder.  Output  signals  from  each 
channel  of  the  IG  are  connected  to  the  RGB  and  Sync  inputs  of  a  Vid  I/O 
box,  as  shown  below.  The  connecting  cables  use  BNC  connectors.  The 
terminating  switches  for  each  channel  are  set  to  OFF  (vice  75  Ohm)  so  that 
the  RGB  and  Sync  outputs  can  be  routed  to  the  standard  SIMNET  monitors. 
This  prevents  requirements  for  recabling  when  the  HTD  is  not  in  use. 


Figfure  2.  HTD  Control  Program  Block  Diagram 
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To  Simulator  Monitor 


Composite  Video 
to  Video  Switcher 


Figure  3.  VID  I/O  Video  Encode  (x  three) 


The  composite  video  outputs  of  the  Vid  I/O  boxes  (Figure  3)  are  connected  to 
the  inputs  of  the  video  switcher.  The  input  connectors  of  the  video  switcher 
(Figure  4)  are  labeled  0, 1,  2,  and  3.  The  outputs  of  the  IG  are  connected  to 
the  inputs  of  the  video  switcher  as  follows  (with  video  switcher  input 
channel  3  left  open): 


TC-L  0 

TC-M  1 

TC-R  2 

The  outputs  of  the  video  switcher  are  then  connected  to  the  color  monitors. 
These  outputs  are  labeled  0,  1,  2,  3, 4,  and  5.  The  video  switcher  should  be 
switched  on  prior  to  connection  to  the  PC  in  order  to  prevent  damage  to  the 
video  switching  chips. 


From  Simulator  IG 


Figure  4.  Video  Switcher  External  View 

The  interface  card  is  connected  to  the  video  switcher  through  a  standard  six 
foot  DB-25  male  to  DB-25  male  parallel  cable.  The  digital  to  analog 
converter  is  connected  to  the  SIMNET  using  a  cable  with  a  BNC  connector 
at  the  interface  card  end  and  a  four  pin  connector  at  the  SIMNET  cupola 
interface. 

The  select  lines  of  the  video  switcher  are  addressed  from  the  interface  card. 
The  interface  card  has  a  sixteen  bit  latch  (really  two  eight  bit  latches  that 
can  be  addressed  as  a  single  sixteen  bit  latch)  ^at  can  be  written  from  the 
control  program  using  C  or  assembly  language  instructions.  See  figure  5. 
The  base  address  of  the  latch  is  30Ch.  The  control  program  outputs  a 
sixteen  bit  word  to  the  latch.  The  first  fomr  most  significant  bits  of  the 
address  will  be  ignored,  and  the  twelve  low  order  bits  are  output  to  the  video 
switcher. 
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Figure  5:  Video  Switcher  (One  module  of  Six).  Functional  Diagram 


The  TC's  DOV  will  be  controlled  by  a  digital  to  analog  converter.  In  its 
normal  operation  the  field  of  view  is  controlled  by  a  potentiometer  mounted 
on  the  rim  of  the  cupola  track.  The  voltage  dropped  across  the  pot  varies  as 
the  cupola  rotates.  The  voltage  drop  is  converted  to  a  digital  value  by  a  A/D 
converter  in  the  simulator  and  the  DOV  is  modified  accordingly.  The  HTD 
bypasses  this  potentiometer  and  sends  a  control  voltage  from  the  D/A 
converter  on  the  interface  card  to  the  simulator's  A/D  converter.  The  D/A 
converter  is  controlled  similarly  to  the  video  switcher,  by  outputting  a 
control  value  to  a  sixteen  bit  latch  on  the  interface  card.  The  base  address 
of  the  D/A  converter  is  302h. 

HTD  Physical  Configuration: 

A  simple  plywood  structure  was  created  to  support  six  Sony  13"  video 
monitors.  Standing  on  six  "2  x  4"  legs,  the  hexagonal  structure  had  a 
sturdy  planar  top  approximately  65"  above  the  floor,  w^ch  a  30"  diameter 
centr^  hole.  A  laboratory  swivel  chair  placed  on  a  6"  high  platform 
provided  a  seat  for  the  subject,  whose  head  projected  through  the  hole  in  the 
table  into  the  simulated  cupola. 

The  SIMNET  cupola  was  simulated  by  a  cardboard  enclosure.  Black  poster 
board  was  fabricated  into  a  hexagonal  chamber  30"  in  diameter,  with  six 
apertures  the  same  size  as  SIMNET  vision  blocks.  Four  sided  cardboard 
cones  connected  these  openings  to  the  Sony  TV  screens,  providing  the 
appropriate  fields  of  view.  See  Figure  6  below. 
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Figure  6;  Head  Tracking  Display  Testbed 

Because  the  testbed  was  in  a  different  room  from  the  SIMNET  MlAl 
simulator,  it  was  necessary  to  use  walkie-talkies  to  commimicate  between 
experimenters,  and  the  SIMNET  intercom  for  the  TC  subject  to 
communicate  with  the  driver.  These  intercoms  proved  troublesome  and 
unreliable,  as  has  been  reported  in  general  with  the  SIMNET  system. 


B.  Visual  Parameters  of  the  Testbed 

It  was  necessary  to  use  three  SIMNET  channels  to  drive  the  three  tumed- 
on  vision  blocks  in  the  HTD  system  for  several  reasons.  First,  these  were 
the  only  trio  of  IG  channels  available  to  the  experimenters.  Second,  we  were 
comparing  a  new  candidate  SIMNET  display  to  the  existing  displays  and 
thus  shoudd  be  using  the  same  visual  databases.  Third,  a  fair  comparison 
should  put  the  same  amoimt  of  information  in  front  of  the  subjects  in  both 
the  experimental  and  control  groups. 

However,  a  SIMNET  TC  channel  was  designed  to  support  an  8  x  20  degree 
field  of  view.  The  HTD  required  that  this  be  re-scaled  to  span  16  x  40  degrees 
which  represents  a  4x  increase  in  angular  FOV.  Under  normal  circum¬ 
stances,  this  would  be  expected  to  overload  an  image  generator's  polygon 
and  pixel  capacity.  The  experimenters  hoped  to  "get  away"  with  this 
situation  for  the  following  reasons. 


Each  SIMNET  channel  is  actually  paired  with  another.  Each  TC  channel  is 
paired  with  a  driver  channel,  with  the  TC  channel  having  priority.  The 
combined  channel  has  a  polygon  capacity  of  2000  polygons  per  frame,  at  15 
frames  per  second.  SIMl^T  visual  databases  are  constructed  under  the 
assumption  of  at  most  1000  polygons  being  visible  at  one  time,  allocated 
approximately  as  follows:  300  terrain  polygons,  300  culture  (buildings,  etc.) 
and  400  target  (tank,  Bradley ...)  polygons. 

Thus,  the  database  was  expected  to  contain  at  most  300  polygons  in  any  8  x 
20  degree  FOV.  If  a  FOV  was  selected  with  no  culture  or  targets,  even  a  4 
fold  increase  in  this  "worst  case"  terrain  polygon  count  should  have 
remained  within  the  2000  polygon  capacity  of  the  IG  (although  we  would 
expect  the  driver's  channels  to  degrade  when  the  maximum  single  channel 
capacity  of  1000  polys/sec  was  exceeded.) 

This  assumption  would  only  be  valid  if  the  view  contained  few  or  no  cvdture 
and  targets;  or  if  targets  occurred  in  settings  where  the  polygon  density  for 
terrain  was  well  below  the  maximum  design  limit.  As  it  turned  out,  these 
conditions  were  often  but  not  always  met.  Route  planning  and  the  search 
for  ways  to  conceal  targets  sometimes  led  to  the  use  of  the  most  complex 
available  terrain,  which  increased  the  terrain  polygon  coxint. 

The  SIMNET  image  generators'  performance  degraded  under  these 
circximstances,  producing  irregular  visual  artifacts  such  as  flickering  and 
occasional  missing  frames.  However,  a  more  severe  problem  with  the 
SIMNET  IG's  soon  manifested  itself. 

Because  of  chronic  difficulties  in  accessing  the  source  code  for  SIMNET 
during  the  transition  from  BBN  to  Loral's  operation  of  the  SIMNET-D  site, 
the  project  attempted  a  "black  box"  approach  to  SIMNET.  That  is,  we 
intended  to  drive  the  IG/simulator  system  by  stimulating  it  with  signals, 
but  with  no  modifications  to  the  internal  code.  Thus,  to  specify  the  viewing 
direction  of  the  TC  cupola,  an  euialog  driving  voltage  (described  in  the 
previous  section)  was  provided,  to  emulate  ^e  output  of  the  cupola  tracking 
potentiometer. 

This  voltage  changed  values  whenever  the  subject's  head  direction 
changed.  However,  the  resulting  change  of  IG  view  direction,  and  the 
switching  of  channels  in  the  video  switcher,  were  unsynchronized, 
resiilting  in  the  unfortunate  situation  where  the  subject  saw  a  "pop",  or  a 
temporarily  incorrect  view,  on  the  screen  to  which  he  had  just  turned.  An 
attempt  was  made  to  detect  the  timing  of  the  SlMNET's  reading  its  own 
A/D  converter,  but  without  full  access  to  the  scheduling  algorithm  in  the 
simulator,  this  external  approach  could  not  fully  solve  the  synchronization 
problem. 

Consequently,  two  classes  of  visual  artifacts  occurred  in  the  Head  Tracker 
which  were  not  present  in  the  rotating  TC  cupola  (the  control  condition  for 
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the  experiment).  As  will  be  seen,  these  artifacts  were  reported  by  the 
subjects  as  having  a  strong  influence  on  their  performance. 

C.  E:q}eri]ximits  with  Head  Tracker 

The  experiment  utilized  a  within-subjects  design,  in  which  each  subject 
receives  all  conditions  in  a  coimterb^anced  arrangement.  To  accomplish 
the  coimterbalancing,  a  Latin  Square  design  is  employed,  in  which  each 
condition  immediately  precede  and  follows  the  other  three  conditions  once. 
For  example,  the  first  four  subjects  receive  the  condition  orders  shown 
below  in  Figure  7. 


Suhjgci 

Condition  Order 
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Cl 

C2 

C3 

C4 
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C3 

Cl 
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Cl 

Figure  7:  Latin  Square  Condition  Ordering 
The  four  conditions  are: 

Cl:  Terrain  Reasoning  (Navigation)  using  Head  Tracking  Display 
C2:  Target  Acquisition  using  Head  Tracking  Display 
C3:  Terrain  Reasoning  using  the  Standard  TC  Cupola 
C4:  Target  Acquistition  using  the  Standard  TC  Cupola 

Temdn  Reasoning  Task. 

Subjects  are  shown  a  2D  paper  and  pencil  map  of  a  section  of  range  at 
Hunter-ligget.  A  start  point,  an  end  point,  and  a  general  vehicle  path  are 
marked  on  the  map,  and  the  Subjects  are  given  two  minutes  to  familiarize 
themselves  with  the  map  before  being  placed  in  the  Ml  simulator  or  HTD 
testbed.  The  subject  will  then  instruct  a  confederate  driver  via  the  SIMNET 
intercom  to  drive  the  stipulated  route.  The  Subject  notifies  the  experimenter 
when  he  believes  he  has  arrived  at  each  checkpoint. 

Dependent  measures  indude  the  total  time  taken  to  traverse  the  intended 
route,  and  gross  location  accuracy.  The  location  accuracy  is  measured  by 
overlaying  the  Subject’s  laminated  map  with  marked  locations  onto  the 
master  locator  map  and  measuring  the  distance  from  the  marked  location 
of  the  checkpoint  to  the  correct  location.  The  Subject's  actual  track  is  also 
recorded  using  a  simultaneous  video/audio  recoding  from  a  PlanA^iew 
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Display,  with  the  audio  track  containing  the  Subject's  instructions  to  the 
driver. 

Target  Acquisition  Task 

Siibject  is  shown  another  2d  paper  and  pencil  map  of  a  range  at  Hunter 
Ligget.  As  in  the  Terrain  Reasoning  Task,  a  start  point,  an  end  point,  and  a 
general  vehicle  path  are  marked  on  the  map,  and  the  Subject  is  given  two 
minutes  to  familiarize  themselves  with  the  map  before  being  placed  in  the 
simulator  or  testbed.  A  confederate  driver  then  drives  a  predetermined  and 
well-practiced  route  that  corresponds  to  the  path  outlined  on  the  map. 
Targets  in  the  form  of  T-72  tanks  are  placed  along  the  path  at  various 
bearings,  distances  and  orientations. 

When  the  Subject  has  acqmred  a  target,  he  will  say  "Target  [right  or  left]", 
indicating  that  the  target  was  located  either  to  the  right  or  left  of  the 
vehicle's  path  of  motion.  The  TC's  voice  will  be  recorded  and  synchronized 
in  time  with  video  taken  from  the  Plan  View  Display  (PVD).  The  dependent 
measure  for  this  task  will  be  the  number  of  targets  correctly  located. 

D.  Results 

Presumably  because  of  the  factors  described  in  Visual  Parameters  above, 
the  results  reflect  no  dear  preference  for  either  the  traditional  SIMNET 
cupola  or  the  HTD.  On  the  terrain  reasoning  task,  two  courses  were  used. 
On  both  courses,  subjects  perfonned  better  (by  the  latency  measure)  during 
the  early  portion  of  the  course  (between  Checkpoints  1  and  2)  with  the 
SIMNET  cupola,  and  better  during  the  period  between  Checkpoints  2  and  3 
with  the  Hll).  This  could  perhaps  be  interpreted  as  saying  that  subjects 
were  learning  how  to  take  advantage  of  the  HTD  during  the  session. 

With  regard  to  navigational  accuracy,  medians  show  no  clear  differences. 
Over  Course  1,  the  cupola  showed  a  less  accurate  performance;  whereas  for 
Course  2,  the  opposite  was  observed. 

With  the  target  acquisition  task,  results  were  similarly  imclear.  For  course 
1,  the  HTD  was  more  successful.  For  course  2,  the  cupola  was  slightly  more 
successful. 

Twelve  subjects  were  used.  The  variance  in  performance  was  veiy  large, 
and  no  statistical  significance  can  be  attributed  to  any  of  the  above 
observations.  However,  the  wide  variance  in  itself  testifies  to  the  effect  of  the 
basic  technical  problems,  on  the  experiment's  ability  to  measure  results. 

A  subjective  evaluation  measured  preferences  and  opinions  of  subjects.  In 
general,  they  expressed  a  slight  subjective  preference  for  the  HTD  when 
asked  questions  such  as  "Rate  your  ability  to  perceive  locations  accurately: 
lavery  easy;  Ssimpossible".  However,  the  same  subjects  voted  8  to  4  in  favor 
of  the  SIAO^T  cupola  when  asked  "which  simulation  do  you  think  would 
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be  most  beneficial  for  training"  and  7  to  5  for  the  SIMNET  cupola  when 
asked  "Which  simulation  do  you  prefer". 

Most  significantly,  when  asked  "Do  you  think  your  performance  would 
have  changed  if  the  head-tracked  display  did  not  have  popping  and 
flickering?",  11  of  the  subjects  responded  YES. 

Additional  Results.  In  response  to  a  request  from  the  sponsor,  a 
preliminary  concept  paper  for  an  advanced  version  of  the  Head  Tracking 
Display  for  POP-hat(^  operation  was  developed.  This  device  would  have 
used  large  monitors  to  provide  an  open-hat(^  display,  rather  than  a 
simulation  of  a  rotating  cupola.  This  concept  paper  is  attached  as  Appendix 
J. 

E.  Conclusions 

1.  It  is  technically  possible  to  build  an  economical  head  tracked  display 
device,  with  video  switching  to  distribute  three  channels  across  six 
displays.  The  entire  prototypical  hardware  suite  cost  less  than  $8,000  in 
parts,  not  including  the  image  generators  or  labor  to  assemble.  A 
hardened,  “simulator  ready”  version  of  this  equipment  would  cost  perhaps 
$12,000  in  materials,  with  a  fiberglass  shell  in  place  of  the  wooden 
superstructure. 

2.  It  is  technically  risky  to  attempt  to  use  an  image  generator  for  any 
purpose  without  the  ftdl  support  of  its  vendor.  Artifacts  may  result  which 
cannot  be  overcome  via  purely  external  means,  and  which  will  render 
experiments  difficult  or  meaningless. 

3.  The  Polhemus  magnetic  tracking  system  is  reliable  and  simple  to  use. 
However,  its  latency  must  be  carefully  factored  into  the  initial  design  of  the 
viewing  system,  as  the  time  required  for  serial  transmission  of  information 
is  a  significant  portion  of  a  simulation  cycle. 
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IV.  Low  Cost  Head  Mounted  Displays  (HMD) 

A.  Head  Mounted  Di^lay  Technology 

We  looked  at  various  types  of  head-moimted  display  technology.  HMD’s  can 
be  opaque  (in  which  only  the  artificial  world  is  seen)  or  semi-transparent 
(in  which  both  artificial  imagery  and  real  objects  are  seen).  To  date,  two 
main  types  of  HMDs  have  been  constructed. 

Pupil-Forming  Systems.  One  type  of  display  is  optically  implemented  as  a 
pupil-forming  system^  Again,  there  are  two  types  of  pupil  forming  HMDs. 
The  first  uses  small  (1/2  inch  diameter)  monochrome  CRT's  moimted  on 
the  side  of  the  helmet.  The  image  is  projected  through  on  helmet  optics  and 
bounces  off  a  beam-splitter  (for  semi-transparent  operation)  or  a  mirror, 
into  the  users  eyes.  This  kind  of  pupil-forming  system  costs  on  the  order  of 
$50K  and  up.  Honeywell  manufactures  this  kind  of  HMD.  Monochrome 
CRT’s  are  usually  used  to  minimize  weight. 

A  variation  on  these  systems  uses  fiber  optics  to  pipe  the  image  firom  off- 
helmet  image  sources,  such  as  G£  light  valves.  TMs  adds  color  capability, 
but  is  also  very  expensive.  The  CA£-Link  helmet  is  of  this  type. 

Infinity-Optics  Ss^tems.  The  other  type  of  HMD  uses  two  small  LCD 
displays  mounted  directly  in  front  of  the  user’s  eyes.  Wide  angle  plastic 
lenses  increase  the  apparent  field  of  view  and  provide  a  virtual  image  at 
optical  infinity.  These  systems  provide  color  imagery  at  a  lower  cost  than 
the  pupil-forming  systems  but  have  lower  resolution.  The  NASA  VIEW 
system  is  a  monochrome  version  of  the  LCD  helmet,  and  VPL's  Eyephones 
is  "nominally”  a  442  x  238  pixel  color  version.  This  actually  represents  the 
number  of  distinct  single-color  pixels  which  are  arranged  in  "triads”.  The 
effective  resolution  if  these  triads  are  regarded  as  single  "pixels”  is  256  x 
137. 

The  one-eye  field  of  view  of  the  EyePhones  is  86  degrees,  which  yields  a 
horizontal  angular  resolution  of  20  arc  minutes  per  pixel.  With  a  vertical 
FOV  of  76  degrees,  the  vertical  angular  resolution  is  33  arc  minutes  per 
pixel.  For  details  of  these  computations,  please  see  Appendix  I. 

VPL  has  released  a  high  resolution  version  of  the  Eyephone  with  twice  the 
horizontal  and  vertical  resolution,  but  its  cost  is  approximately  $40,000, 
again  making  it  fairly  expensive. 


^The  exit  pupil  of  a  pupil-forming  optical  device  is  a  disc-shaped  region  in 
space,  to  which  all  of  the  light  from  the  system  converges  and  from  which  it 
diverges.  When  the  eye’s  pupil  is  entirely  within  the  exit  pupil,  the  full  field 
of  view  is  perceived  at  maximum  brightness.  If  the  eye’s  pupil  panially 
overlaps  with  the  exit  pupil  or  is  too  near  or  far  from  the  image  source, 
“vignetting”  (panial  occlusion  of  the  image)  occurs,  and  brightness  and 
clarity  diminish. 
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We  are  using  the  medium  resolution  Eyephones  for  the  HMD  Project,  and 
also  acquired  a  variant  for  the  Evans  and  Sutherland  ESIG-500,  called 
Cyberface  II  by  PopOptix  Labs  (Boston,  MA).  This  firm  is  owned  by  Eric 
Hewlett,  who  produced  the  lenses  for  the  original  VPL  Eyephones. 

Other  Research.  There  are  several  on-going  low-cost  HMD  R  &  D  projects 
going  on  around  the  coimtry  at  this  time.  One  of  the  most  ambitious  is  the 
development  of  micro-laser  scanning  displays.  This  project  is  going  on  at 
the  University  of  Washington  in  Seattle,  and,  if  successful,  could  provide 
low-cost,  high-resolution,  lightweight  HMD's  in  the  medium-range  future 
(1993-95). 

A  second  HMD  project  of  interest  is  imderway  at  1ST.  Dr.  Tom  Clarke,  with 
DARPA  funding,  is  constructing  an  experimental  variable-acuity  HMD. 
Using  custom  electronic  hardware.  Dr.  Clarke's  device  will  pre-distort 
imagery  to  concentrate  information  on  the  central  visual  field.  A  uniform 
(and  thus  low-cost)  LCD  image  source  will  be  used.  Nonlinear  optics  will 
then  reverse  the  pre-distortion,  and  will  result  in  a  varying  pixel  density  in 
the  central  and  peripheral  visual  fields.  Prototypes  should  be  available  in 
1993. 

B.  Driving  the  EyePhones  with  Silicon  Graphics  Workstations 

As  a  first  experiment,  a  testbed  was  constructed  in  conjimction  with  the 
Dynamic  Terrain  Project,  another  PM-TRADE  sponsored  1ST  project.  A 
smte  of  software  was  constructed  which  provided  stereo  displays  from  two 
different  Silicon  Graphics  (SGI)  workstations,  and  which  was  networked  to 
two  additional  workstations  providing  models  of  moving  tanks. 

It  is  necessary  to  set  output  code  in  the  SGIs  to  produce  NTSC  composite 
video,  and  to  use  two  Vid  I/O  boxes  to  convert  the  resulting  RGB  signals  to 
composite.  This  was  accomplished  without  difficulty,  and  the  Eyephones 
responded  well.  The  Polhemus  controller  provided  with  the  EyePhones  was 
interfaced  to  the  SGI  via  a  serial  port.  This  was  IST's  first  experience  with 
Polhemus  devices,  and  served  to  open  the  pathway  for  other  uses  including 
the  HTD  display  previously  described. 

These  early  VPL  Eyephones  suffered  from  a  nximber  of  problems.  On  two 
occasions  ^e  devices  failed  and  were  returned  to  the  vendor  for  warranty 
repairs.  The  diffuser  screens  produced  a  "screen  wire"  appearance  which 
was  quite  distracting  and  had  the  opposite  effect  than  intended,  which  was 
to  provide  a  subjective  pixelization  of  the  image.  Nevertheless,  the  first  use 
of  the  Eyephones  was  successful  in  showing  that  stereo  images  could  be 
displayed,  inter-ocular  adjustment  provided  in  software,  and  a  SpaceBall 
navigation  paradigm  used  with  workstation  signal  sources. 


C.  Attaching  a  HMD  to  the  SEMNET  System 

The  original  idea  was  to  explore  EyePhones  as  a  possible  POP-hatch 
viewing  device.  Several  obstacles  presented  themselves,  as  a  consequence  of 
the  inaccessibility  of  the  SIMNET  system's  internal  details: 

1)  There  was  no  convenient  way  to  achieve  vertical  deflection,  comparable  to 
tl^  horizontal  deflection  achieved  by  the  HTD  tracker  via  an  emulation  of 
the  cupola  potentiometer.  Instead,  ^e  SIMNET  IG  accepted  only  the 
position  of  a  three  position  switch,  to  tilt  the  FOV  upwa^  or  downward  by 
five  degrees  from  the  horizontal. 

2)  Stereo  viewing  required  the  use  of  two  channels  of  imagery  with  a 
horizontal  offset,  and  precise  control  of  the  distance  between  the  views.  No 
two  SIMNET  channels,  as  originally  set  up,  had  these  properties.  A  data 
block  was  identified  which  could  respecify  fields  of  view,  etc  (and  was  used 
in  the  HTD  for  this  purpose). 

3)  The  viewing  blocks  in  SIMNET  had  a  20:8  aspect  ratio,  whereas  the 
NTSC  signal  required  for  EyePhones  required  a  4:3  ratio.  Only  the  Stealth 
configuration  of  SIMNET  would  support  this  viewing  situation,  and  IST's 
Stealth  system  had  limited  hours  of  availability. 

4)  Tank  commanders  often  need  to  look  back  and  forth  between  the  "outside 
world"  and  a  paper  map,  but  EyePhones  did  not  support  this  possibility.  An 
alternative  would  be  to  treat  the  EyePhones  as  binoculars,  wMch  could  be 
raised  to  the  face  or  put  down  when  map  viewing  was  desired. 

Meanwhile,  1ST  received  from  PM>TRADE  a  supposedly  working  set  of 
soiurce  code  for  the  SIMNET  hosts.  With  the  assistance  of  Warren  Katz,  one 
of  the  software's  authors  and  now  a  private  consultant,  1ST  began  to 
decipher  and  recompile  the  SIMNE*!  simulation  host  source  code. 

In  order  to  investigate  the  possibilities,  we  embarked  upon  an  attempt  to 
integrate  the  Polhemus  system  into  the  SIMNET  source  code.  After  some 
effort  with  Warren  Katz'  assistance,  we  were  able  to  integrate  the 
Polhemus  into  the  Simnet  code.  We  built  an  internal  analog  to  the  external 
version  of  the  HTD.  In  essence,  we  turned  off  the  code  whi^  read  the 
cupola  potentiometer,  and  forced  in  the  values  from  the  Polhemus.  We 
managed  to  extend  the  Polhemus  code  to  compensate  for  the  "dead  spot" 
where  the  cupola  could  not  rotate.  Thus,  full  360  degree  rotation  about  the 
vertical  axis  became  possible. 

The  integration  of  vertical  motion  was  attempted.  The  problem  was  traced 
in  the  source  code  back  to  the  way  the  cupola  rotation  was  stored  as  an  Ml 
state  variable.  Only  the  rotation  about  the  vertical  axis  is  stored.  Substantial 
work  would  be  required  to  change  the  source  code  so  as  to  allow  rotation 
around  three  axes.  Without  BBN  support,  this  was  not  feasible. 
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We  also  considered  modifying  the  Stealth  system's  source  code  so  as  to  take 
advantage  of  its  ability  to  move  the  viewpoint  freely,  but  found  that  only 
about  h^f  the  Stealth  code  was  actually  available.  As  time  and  resources 
were  running  out,  we  abandoned  further  efforts  to  integrate  the  EyePhones 
with  the  SIMNET  system. 


IX  Attaching  a  HMD  to  the  ESIG-SOO  [^ystem 

The  second  task  attempted  tmder  the  HMD  project  was  the  use  of  a  low-cost 
head-moimted  display  on  the  Evans  and  Sutherland  ESIG-500  image 
generator.  This  image  generator  has  several  characteristics  that  made  it 
an  attractive  platform  for  this  work.  First,  since  the  image  generator  was 
not  tightly  coupled  with  a  training  simulator,  it  was  hoped  that  control 
would  be  a  simpler  matter  than  on  the  SIMNET,  where  image  generator 
control  code  was  imbedded  inside  simulation  code.  Secondly,  it  was  felt  that 
the  higher  update  rate  of  the  ESIG-500  (50  Hz  vice  15  Hz  on  SIMNET)  would 
provide  information  on  the  effects  of  update  rate  on  users. 

The  original  intention  was  to  use  the  VPL  Eyephones  with  the  ESIG-500. 

We  thought  the  ESIG-500  was  capable  of  running  at  a  visual  system  vertical 
refresh  rate  (update  rate)  of  60  Hz.  This  would  allow  us  to  use  video 
encoders  to  encode  the  red,  green,  blue,  and  sync  signals  into  an  NTSC 
composite  signal,  which  could  be  used  by  the  Eyephones.  Evans  and 
Sutherland  told  us  this  would  be  possible  if  we  did  a  hardware  modification 
by  replacing  the  timing  crystal  on  the  ESIG  with  a  faster  crystal,  and  if  we 
were  willing  to  accept  a  reduced  polygon  budget  (they  said  that  the  update 
rate  times  the  polygon  budget  was  an  invariant,  so  that  as  update  rate 
increases,  polygon  budget  decreases).  Tliis  also  would  require  some 
microcode  patches,  which  Evans  and  Sutherland  agreed  to  provide. 
However,  tests  showed  that  the  fastest  update  rate  we  could  achieve  was  57 
Hz.  This  was  not  dose  enough  to  the  rate  required  to  obtain  an  image  on 
the  Eyephones. 

Additionally,  we  attempted  to  modify  the  Eyephones  to  bring  the  signal 
synchronization  rate  down  to  57  Hz.  However,  it  was  determined  that  the 
cost  of  produdng  a  crystal  that  would  allow  the  Eyephones  to  synchronize  at 
57  Hz  was  prohibitive,  since  it  was  not  a  standard  crystal  and  woiild  require 
a  spedal  production  run  to  create.  Additionally,  it  was  reported  that  the 
drcmtry  would  reqmre  substantial  modification  to  allow  the  Eyephones  to 
synchronize  at  50  Hz,  even  with  commerdally  available  crystals. 

The  next  solution  we  explored  was  the  use  of  scan  converters  to  modify  the 
ESIG-500  signal  from  50  Hz  to  60  Hz.  Each  scan  converter  could  modify  one 
channel  and  cost  $15,000,  for  a  total  cost  of  $30,000.  This  was  dearly  a 
prohibitive  cost. 

Finally,  we  were  able  to  locate  a  different  HMD,  the  Cyberface  II,  by  Pop 
Optix  Labs,  that  was  capable  of  accepting  separate  red,  green,  blue,  and 
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synch  signals.  The  Cyberface  II  is  also  capable  of  synchronizing  at  both  50 
Hz  or  60  Hz,  and  therefore  can  be  used  directly  on  the  ESIG-500.  The  ESIG- 
500  produced  a  signal  with  levels  inappropriate  for  the  Cyberface  11.  The 
images  were  washed  out  and  detail  was  difficult  to  see.  These  signal 
strength  problems  that  were  solved  by  circuitry  designed  and  constructed  at 
1ST,  and  incorporated  into  a  housing  with  the  power  supply  for  the 
Cyberface  H.  This  circuitry  provides  the  ability  to  adjust  each  of  the  red, 
green,  and  blue  signals  individually.  This  allows  us  to  adjust  the 
brightoess  and  color  balance  for  each  display  in  the  Cybeiface  II  HMD 
system,  even  where  differences  in  source  signals  exist.  The  Cyberface  II 
will  be  described  in  more  detail  later  in  this  report. 

Use  of  a  head-mounted  display  with  an  synthetic  image  source  such  as  the 
ESIG-500  requires  control  over  the  image  source.  With  the  ESIG-500  this 
control  can  be  effected  through  the  terminal  keyboard  attached  to  the  ESIG- 
500  or  through  a  host  computer  connected  to  the  ESIG-500  with  an  Ethernet 
network.  Because  it  is  desirable  to  use  a  magnetic  tracking  device  to  control 
eyepoint  orientation  and,  to  a  lesser  degree,  eyepoint  position,  it  is 
necessary  to  use  a  host  computer  controlling  the  ESIG-500  over  an  Ethernet 
connection.  The  magnetic  tracking  device  is  connected  to  the  host 
computer  using  a  serial  connection. 
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Figure  8:  ESIG/CyberFace  Configuration 


-21 


The  control  program  can  be  summarized  by  the  pseudocode  below; 

initialize  serial  port 
initialize  tracker 
initialize  Ethernet 
initialize  viewport 

while  (!done)  { 

get  a  position/orientation  record  from  the  Polhemus 

determine  the  center  screen  (the  one  the  TC  is  looking  at) 

if  (center  screen  changed)  set  screen  changed  flag 

look  up  the  corresponding  IG  control  word 

look  up  the  corresponding  video  switcher  control  word 

if  (sync  signal  from  IG)  { 

if  (center  screen  changed)  ( 

send  BLANKING  control  word  to  the  video  switcher 

set  delay  counter 

clear  screen  changed  flag 

set  change  the  switcher  flag 

) 

send  the  IG  control  word 

} 

if  (change  the  switcher)  ( 

if  (delay  counter  >  0) 

decrement  delay  counter 

else  ( 

send  video  switcher  control  word 
clear  change  the  switcher  flag 

) 

) 

Tbe  ESIG-500  bost  interface  follows  IEEE  802.3  hardware  and  software 
standards  for  communication  protocol.  Tbe  communication  protocol 
frame  format  is  shown  below: 


prsam 

sfd 

dsst 

BTC 

length 

bl« 

sync 

addr 

addr 

data 

crc 

Figure  9:  Frame  Format 

The  preamble,  sfd  sync,  and  crc  fields  are  filled  in  by  the  Ethernet 
hardware.  The  user  on  the  host  computer  specifies  the  destination  address 
field,  the  source  address  field,  the  length  field,  and  the  data  field.  The  data 
field  contains  the  command(s)  to  the  ESIG-500  from  the  host  computer.  The 
data  field  can  contain  multiple  opcodes,  with  each  opcode  being  followed  by 
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any  required  parameters.  The  data  field  must  be  at  least  46  b3d.es  and  no 
more  tha.i  1500  bytes. 

The  Ethernet  standard  corresponds  to  the  Physical  Layer  and  the  Data  Link 
Layer  of  the  OSI  protocol  stack.  Higher  level  communications  protocols, 
su^  as  IP  and  TCP,  are  not  understood  by  the  ESIG-500.  For  ease  of 
implementation,  it  was  de:nded  to  use  a  PC  clone  as  the  host  computer. 

This  provided  easier  access  to  low  level  Ethernet  communication.  It  also 
allowed  isolation  from  network  traffic  (using  higher  level  protocols)  not 
intended  for  the  ESIG-500. 

The  Ethernet  card  used  to  connect  the  host  PC  to  the  ESIG-500  is  a  3Com  503 
Ethernet  adapter.  The  host  interface  library  to  control  the  ESIG-500  was 
originally  written  in  80x86  assembler  using  Ethernet  adapter  control 
libraries  written  by  the  3Com  company  and  provided  with  the  503  adapter. 
The  3Com  library  was  very  poorly  written.  For  this  reason,  for  this  project, 
the  host  interface  library  was  rewritten  in  the  C  programming  language. 
The  new  host  interface  library  uses  a  public  domain  503  adapter  control 
library,  also  written  at  1ST. 

For  the  purposes  of  this  project,  two  functions  were  used  from  the  ESIG-500 
host  interface  library.  These  two  functions  are  the  escsO  function  call  and 
the  esviewpointO  function  call. 

The  esviewpointO  function  gives  us  control  over  various  aspects  of  the 
viewport  presented  on  each  channel.  This  allows  setting  up  the  image 
presented  to  each  eye  so  that  the  user  is  able  to  fuse  both  images  into  a 
three-dimensional  image.  Different  people's  eyes  have  different  inter¬ 
ocular  distances  (lOD),  and  this  must  be  considered  when  setting  up  the 
viewing  parameters  on  each  channel.  Parameters  to  this  function  include 
the  channel  number,  the  x,  y,  and  z  coordinates  of  the  eye  position,  and  the 
heading,  pitch,  and  roll  angles  of  the  eye. 

These  values  must  be  specified  for  each  eye.  The  esviewpointO  function  is 
called  twice,  once  for  each  eye,  during  program  initialization. 

The  escsO  function  gives  us  control  over  the  position  and  orientation  of  the 
eyepoint  during  run-time.  This  function  is  called  repeatedly  during 
runtime  to  continually  update  the  user’s  point-of-view,  based  on  inputs 
from  a  magnetic  head-tracker. 

The  ISOTRAK  magnetic  tracker  used  to  sense  head  position  and 
orientation  is  connected  to  a  serial  port  on  the  host  computer.  This  part  of 
the  software  is  similar  to  the  code  written  to  control  the  HTD  described 
above. 

There  are  some  hardware  conflicts  that  may  occur  between  the  serial  port 
and  the  Ethernet  adapter.  The  PC  prioritizes  interrupts  based  on  IRQ 


-23  - 


levels.  The  Ethernet  adapter  can  be  set  during  initialization  to  use  IRQ 
levels  2, 3, 4,  or  5.  The  serial  ports  on  a  PC  typically  use  IRQ  levels  3  or  4. 
Care  must  be  take  to  ensure  that  the  IRQ  level  set  for  the  Ethernet  adaptor 
do  not  conflict  with  the  IRQ  level  set  for  the  serial  port. 

Status  of  ESIG-SOOl^stbed 

At  the  conclusion  of  the  project,  it  is  possible  to  demonstrate  a  working  head 
moimted  display  system  with  the  CyberFace  display  and  the  ESIG-500. 
There  are  still  some  problems  with  the  head  tracking  software.  However, 
the  principal  obstacle  to  practical  use  of  this  system  is  the  poor  optical  and 
human-engineering  properties  of  the  CyberFace.  The  display  is  even 
fuzzier  than  the  first  generation  VPL  EyePhones,  and  the  head  mount  is 
essentially  imusable. 

The  University  of  North  Carolina  Head  Moimted  Display  research 
team  led  by  Dr.  Henry  Fuchs  has  reached  similar  conclusions 
regarding  this  device. 

We  remain  hopeful  that  we  can  re-engineer  the  CyberFace  for  improved 
performance,  since  it  is  the  only  presently  available  device  which  accepts 
ESIG  signals.  A  number  of  experiments  are  being  contemplated,  in 
collaboration  with  the  Army  Research  Institute,  which  would  require  a 
display  device  with  the  rapid  update  rate  and  high  scene  quality  of  the 
ESIG-500,  together  with  a  more  competent  display  device. 

E.  Attaching  a  HMD  to  the  Senses  System 

In  January  of  1992,  an  opportunity  arose  to  test  the  VPL  EyePhones  with  an 
extremely  low-cost  image  source,  to  wit  an  IBM  PC  containing  Intel  DVI 
boards.  The  PC  was  provided  by  an  industrially  funded  1ST  project;  the  DVI 
boards  by  Dr.  Tom  Clarke’s  DAJRPA-funded  1ST  project.  The  software,  titled 
WorldToolKit  from  Sensed  Corporation  (Sausalito,  CA)  was  donated  by 
Senses.  This  system  uses  a  substantial  amoimt  of  photo-derived  texture 
arranged  in  12S  x  12S  texture  maps,  which  are  warped  onto  polygons  in 
real-time  by  the  DVI  boards. 

The  EyePhones  work  remarkably  well  in  this  context,  considering  the 
limitations  of  the  image  sources.  The  image  system  can  produce  between 
one  and  ten  frames  per  second  of  imagery,  wldch  is  similar  in  speed  to  the 
Silicon  Grapics  Iris  demonstrations  described  above.  However,  the  addition 
of  texture  increases  the  amount  of  visual  content  and  of  visual  flow  (motion 
cueing),  so  that  the  user’s  sense  of  presence  is  enhanced. 

Of  the  four  image  sources  used  with  HMD’s  as  part  of  this  project,  the 
Sensed  system  is  by  far  the  lowest-cost.  The  entire  hardware  suite  (without 
EyePhones  and  Polhemus  tracker)  cost  less  than  $8,000,  and  prices 
continue  to  drop.  The  Sensed  software  retails  for  $3,500. 
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This  combination  of  equipment  will  be  demonstrated  at  the  final 
presentation  of  this  Project’s  results  in  March  of  1992. 

F.  Condusions 

1)  With  regard  to  commercially  available  low  cost  head  mounted  display 
hardware  as  of  the  end  of  1991,  we  do  not  recommend  the  immediate 
application  of  these  displays  for  training  purposes.  They  are  neither  of 
sufficiently  high  resolution,  nor  physically  robust  enough  for  inclusion  in 
training  systems. 

2)  It  is  likely  that  the  remaining  problems  of  resolution  and  physical 
comfort  can  and  will  be  overcome  by  a  combination  of  academic  and 
industrial  research  and  development  during  the  next  24  to  36  months.  The 
primary  driving  force  in  this  market  is  commerdal/entertainment,  with  a 
number  of  new  devices  appearing  on  the  market  as  this  report  is  written. 

3)  The  continuing  rapid  development  of  low  cost  image  sources  such  as  the 
SenseS/DVI  system  will  exert  an  equally  strong  market  force  in  favor  of  this 
technology.  Video  games  of  all  sorts  will  appear  in  1992  incorporating  both 
low  cost  HMD’s  and  realtime  textured  3d  imagery,  and  this  technology 
should  be  closely  monitored  for  use  in  military  training. 
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Paper  presented  at  SIMTEC  '91  Conference 


Proceedings  of  SIMTEC  ’91 
Simulation  Computer  Society, 
Oct.  21-23  1991,  Orlando,  FL 


HEAD-TRACKING  DISPLAY  DEVICES  FOR  PANORAMIC  VIEWS  IN 

LOW-COST  SIMULATORS 


Richard  Dunn<Robert8,  Marty  Altman,  J.  Michael  Moshell, 
Curtis  R.  Lisle,  Pat  Moskal,  Kevin  Uliano,  and  Takis  Kasparis 
Institute  for  Simulation  and  Training 
and 

Electrical  Engineering  Department 
University  of  Central  Florida 
Orlando,  FL  32816 


ABSmCT 

A  chronic  problem  for  visual  simulation  is  the 
requirement  for  a  wide  field  of  view  which  provides 
sufficient  pixel  and  object  density  close  to  the  central 
viewing  axis.  In  high-fidelity  (high  coat!)  fli^t  simulators 
with  dome  displays,  hi^  definition  area  of  interest  inserts 
have  been  used  to  increase  the  subject's  ability  to  acquire 
and  track  targets. 

Ihe  authors  have  de«igned  three  display  systems  to 
explore  low-cost  solutions  to  this  problem.  These  systems 
have  been  designed  as  retro-fits  to  the  SIMNET  MlAl 
tank  simulator.  The  common  problem  being  addressed  is 
that  of  a  tank  commander's  view  of  the  woild.  The  three 
systems  are: 

•  a  six-window  simulation  of  the  MlAl's  vision  blocks, 
to  simulate  closed-hatch  operations; 

•  a  head-mounted  display,  to  simulate  protected-open 
positicni  (POP)  hatch  operations;  and 

•  a  ten-monitor  panoramic  display,  to  simulate  POP 
hatch  operations  without  the  encumbrance  of  the  head- 
mounted  display. 

This  paper  describes  the  magnetic  sensor  technology 
used  to  detect  the  tank  commander's  viewing  direction;  the 
switching  technology  required  to  distribute  image 
generator  (IG)  channels  across  multiple  devices;  and  the 
resolution  and  slew  rate  requirements  and  capabilities  of 
the  IG  used  in  each  design. 

A  concluding  section  describes  experiments  to  assess 
the  training  efTectivensss  of  the  implemented  designs  with 
regard  to  navigation  and  target  acquisition  tasks.* 


*  This  work  was  sponsored  by  the  Army's  Project 
Manager  for  Training  Devices  (PM-TRADE). 


The  SIMNET  MlAl  tank  simulator  (hereinafter 
referred  to  as  SIMNET)  is  a  team-trainer  that  supports  the 
training  of  four  man  teams,  including  a  driver,  a  loader,  a 
gunner,  and  a  tank  commander  (TC).  The  trainees  can 
observe  the  "world"  outside  the  simulated  tank  tivough 
vision  blocks  that  attempt,  more  or  less,  to  simulate  the 
periscopes  and  sights  provided  for  a  crew  in  a  real  MlAl 
tank.  There  is  a  total  of  eight  vision  blocks;  one  each  for 
the  loader  and  gunner,  and  three  each  for  the  driver  and 
TC.  nnre  image  generator  used  in  the  SIMNET  is  a  BBN 
GTIOI. 

In  the  standard  SIMNET,  the  TCs  three  vision  blocks 
each  provide  a  20x8  degree  field  of  view  (FOV)  into  the 
visual  database.  Tliese  views  abut  each  other,  for  a  total 
FOV  of  60x8  degrees.  The  direction  of  view  (DOV)  is 
controlled  by  the  TC,  and  can  be  mechanically  rotated 
through  (just  less  than)  360  degrees.  This  represents  a  low 
cost  solution  to  the  requirement  for  a  wide  FOV. 

However,  because  the  DOV  is  mechanically  changed, 
a  relatively  large  delay  is  introduced  when  the  TC  wishes 
to  chaiige  the  DOV.  It  takes  approximately  six  seconds  to 
rotate  the  DOV  through  180  degrees.  At  the  Visual 
Systems  Laboratory  of  the  Institute  for  Simulation  and 
Draining  (VSL/IST)  at  the  University  of  Central  Florida, 
the  authors  have  designed  three  low  cost  solutions  to  this 
problem  that  change  the  DOV  at  electronic  speeds.  At  the 
time  of  this  report,  one  of  the  designs  has  been 
implemented  and  a  second  in  under  construction. 

All  of  these  systems  use  magnetic  head-tracking 
technology  to  sense  the  direction  the  TC  is  looking.  Two 
solutions  use  this  head-tracking  information  to  switch 
video  sources  to  output  channels  and  update  the  DOV. 
The  third  solution  also  uses  the  information  to  update  the 
DOV,  but  the  TC  uses  a  head-mounted  display  to  view  the 
image,  so  no  video  switching  is  required. 


THE  PQLHEMUS  MAGNETIC  TRACKER 

Each  of  tha  ayatoma  daacribad  in  this  papar  usaa  a 
haad-traeking  davioa  to  datannina  tha  position  and 
oriantation  of  tha  uaar'a  haad.  Haad-tracking  systams 
typically  aithar  uaa  a  magnatic  sourca  and  aanaor,  or  infia- 
rad  diodaa  and  video  cameras.  Our  Mystema  use  magnatic 
tracking  technology.  Other  magnetic  trackers  are  also 
availabla,  but  Polhemus  trackers  are  probably  tha  most 
commonly  used.  The  Polhemus  3SPACE®  Isotrak®  is  a 
low  cost  magnetic  tracker  and  was  used  in  tha  projects 
described  in  this  paper. 

The  Polhemus  Isotrak  is  a  six  degree-of-freedom 
measuring  device.  Tha  Isotrak  can  provide  Cartesian 
coordinate  (x,  y,  z)  and  oriantation  (yaw,  pitch,  roll) 
information  about  a  sensor  relativo  to  a  source  positioaed 
near  the  senaor.  The  Isotrak  will  provide  this  inTonnation 
within  a  specified  accuracy  (position  •  0.25  inch  RMS, 
oriantation  >  0.85*  RMS)  and  resdution  (position  •  0.18 
inch  RMS,  wiantation  •  0.36*  RMS)  up  to  30  inches  away 
from  tha  source.  The  host>Isotrak  int^aoe  is  by  RS-232C 
aerial  link,  with  user  selected  baud  rates  from  300  to  19,200 
baud.  Tha  information  can  be  in  ASCII  or  binary  format, 
and  tha  highest  output  update  rate  is  60  Hz  at  19,200  baud 
in  binary  format.  (Polhemus  1987) 

HEAD.TRACKINQ  DISPLAY  SYSTEMS 

Two  of  the  ^tams  described  in  the  introduction  are 
head-tracking  display  systems  not  based  on  either  dome 
projection  systams,  which  are  high  cost,  or  on  head- 
mounted  display  technology.  These  two  systems,  called 
tha  Head-Tracking  Display  (HTD)  and  the  Extended 
Head-Tracking  Display  (EHTD),  are  based  on  the  use  of 
standard  video  monitors  with  video  switching  technology. 
This  allows  the  use  of  a  number  of  IG  channels  with  a 
larger  number  of  monitors  to  reduce  the  cost  of  image 
generation  resources  while  not  reducing  the  apparent 
number  of  output  channels. 

The  VSLTST  Video  Switcher 

Tha  video  switcher  used  in  tha  Head-Tracking 
Display  systams  was  designed  and  built  at  tha  Visual 
Systams  Laboratory.  Tha  switcher  was  constructed  to 
taka  four  NTSC  composite  video  input  signals  and  route 
them  to  any  of  six  output  channels  under  control  of  a  host 
computer.  It  is  constructed  from  six  four-to-one  composite 
video  multiplexers  with  two  select  lines  each. 

A  DB-25  pin  connector  allows  connection  of  the 
switcher  to  the  host  through  a  parallel  port.  Twelve  lines  of 
tha  parallel  port  are  read  as  a  control  word  to  select  which 
input  signals  are  routed  to  which  output  channel. 


Tha  routing  of  input  signals  to  output  channels  is 
software  configurable  through  tha  control  word.  Any 
input  signal  can  be  routed  to  any  output  channel,  the  only 
rsstoietion  being  that  only  one  input  signal  can  be  routed  to 
a  particular  output  channel  at  a  given  time. 

Tha  design  can  be  scaled  up  using  additional  video 
multiplexers.  It  may  also  be  possible  to  improve  signal 
quality  by  using  RGB  video  multiplexers  instead  of 
composita  video  multiplexers,  but  this  would  increase 
switcher  circuitry  complexity  and  video  cabling 
requirsmants.  (Dunn-Roberts  et  al.1991) 

The  Head-Tracldng  Display 

The  first  implemented  display  system  is  the  Head- 
Tracking  Display  (HTD)  (figure  1).  This  display  system 
has  bean  implemented  and  is  in  use  with  SIMN^. 
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Figure  1.  The  Head-Tracking  Display  (HTD) 

The  purpose  of  the  HTD  is  to  simulate  the  MlAl 
Abrams  tank  commander's  (TC)  cupola,  which  has  six 
vision  blocks.  Each  vision  block  has  a  45x15  degree  FOV 
(approximately).  SIMNET  provides  a  single  60x8  degree 
FOV  using  three  channels  from  the  SIMNET  IG.  The 
HID  design  allows  us  to  drive  six  monitors  with  the  TC's 
three  channels  of  the  SIMNET  IG.  This  is  accomplished 
through  the  use  of  the  video  switcher  and  the  Polhemus 
Isotrak  magnetic  tracker,  under  control  of  an  IBM  PC-AT. 
The  control  computer  reads  the  tracker,  controls  the  video 


switcher,  and  controls  the  direction  of  view  (DOV)  on  the 
IG. 

In  the  HTD,  six  IS”  (diagonal)  monitors  are  placed  in 
a  ring  around  the  TCs  cupola.  The  cupola  is  constructed 
from  white  cardboard  with  six  openings  equally  q>aced 
around  the  TCs  head,  through  which  the  TC  views  the 
images  on  the  monitors.  Only  the  three  monitors  in  fixmt 
of  the  TCs  head  are  active  at  any  time,  with  each  monitor 
presenting  approximately  the  same  FOV  as  a  real  vision 
block.  Ibis  gives  the  TC  a  140x16  degree  instantaneous 
FOV.  Under  control  of  the  PC-AT,  the  video  switcher 
activates  the  three  monitors  in  front  theTC.  AstheTC 
turns,  the  control  PC  shifts  the  output  signals  to  the 
appropriate  three  monitors.  The  switcher  is  designed  to 
give  an  instantaneoiu  change  of  view  in  order  to  eliminate 
the  time  now  required  for  the  cupola  to  rotate 
mechanically  through  the  same  distance.  For  example,  a 
180  degree  rotation  that  requires  six  seconds  in  the 
mechanically  rotating  cupola  takes  approximately  one 
fifth  of  a  second  in  the  HTD. 

The  control  computer  also  controls  the  DOV  of  the  IG 
through  a  digital-to-analog  (D/A)  converter.  This 
converter  mimics  the  potentiometer  in  the  mechanically 
rotating  cupola  to  change  the  DOV  at  the  IG. 

The  control  computer  reads  the  Polhemus  magnetic 
tracker  and,  baaed  on  the  orientation  of  the  user's  head, 
sends  a  signal  to  the  IG  to  update  the  DOV.  The  control 
computer  then  routes  the  four  input  channels  to  some 
subset  of  the  six  mautors. 

Three  of  the  input  channels  come  from  the  SIMNET 
IG,  and  the  fourth  input  channel  is  available  for  neutral 
imagery  from  any  video  source,  or  can  be  left  blank. 

The  control  fVinctions  of  the  PC-AT  are  provided  by  a 
combination  of  hardware  additions  to  the  PC-AT  and  the 
simulator  host  and  control  software  on  the  PC-AT.  The 
hardware  additions  to  the  PC-AT  consist  of  a  parallel 
output  channel  with  some  logic  circuitry  and  a  D/A 
converter.  The  output  channel  is  used  to  transmit  control 
signals  to  the  video  switcher,  and  the  converter  is  used  to 
control  DOV  on  the  IG.  Both  the  output  channel  and  the 
converter  reside  on  a  single  prototype  bus  card  (called  the 
interface  card)  in  the  PC-AT.  In  addition  to  this  interface 
card,  a  game  port  card  has  been  added  to  read  a 
synchronization  signal  from  the  simulator  host. 

The  control  program  for  the  HTD  is  conceptually 
simple.  It  has  two  basic  responsibilities:  sending  the  TCs 
DOV  to  the  IG,  and  telling  the  video  switcher  which  input 
signals  to  route  to  which  channel.  The  control  program 
reads  two  inputs:  the  magnetic  sensor  and  the 
synchronisation  signal.  The  only  two  outputs  from  the 


program  are  a  control  voltage  for  the  SIMNET  IG,  and  a 
control  word  for  the  video  switcher. 

The  outputs  from  the  SIMNET  IG  are  in  the  form  of 
four  signals:  red,  green,  blue,  and  sync.  To  reduce  raMing 
requirements  and  switcher  complexity,  the  signals  are 
encoded  using  a  commercial  video  encoder.  Output 
signals  from  each  channel  of  the  SIMNET  IG  are 
connected  to  the  RGB  and  Sync  inputs  of  the  encoders. 
The  composite  video  outputs  of  the  encoders  are 
connected  to  the  inputs  of  the  video  switcher.  The  outputs 
of  the  video  switcher  are  then  connected  to  the  color 
monitors. 

The  select  lines  of  the  video  switcher  are  addressed 
from  the  interface  card.  The  interface  card  has  a  sixteen 
bit  latch  that  can  be  written  to  by  the  control  program 
using  C  or  assembly  langtiage  instructions.  The  control 
program  writes  the  control  word  to  the  latch,  and  the 
twelve  low  order  bits  are  written  to  the  video  switcher. 

The  TCs  DOV  is  controlled  by  a  D/A  converter.  In 
SIMNET  normal  operation  the  DOV  is  controlled  by  a 
potentiometer  mounted  on  the  lim  of  the  cupola  rotation 
track.  The  voltage  dropped  across  the  pot  varies  as  the 
cupola  rotates.  The  voltage  drop  is  converted  to  a  digital 
value  by  an  analog-to-digital  (A/D)  converter  in  the 
simulator  and  the  DOV  is  modified  accordingly.  The  HTD 
bypasses  this  potentiometer  and  sends  a  control  voltage 
from  the  D/A  converter  on  the  interface  card  to  the 
simulator's  A/D  converter.  The  D/A  converter  is 
controlled  similarly  to  the  video  switcher,  by  writing  a 
control  value  to  a  sixteen  bit  latch  on  the  interface  card. 

The  hardware  modification  to  the  simulator  host 
consists  of  a  small  circuit  that  detects  when  the  simulator 
A/D  card  has  been  read  by  the  host.  This  circuit  sends  a 
signal  to  the  eontrtd  PC-AT  to  allow  for  a  measure  of 
synchronization.  However,  even  with  this  modification  to 
the  SIMNET  host,  synchronization  is  not  exact,  and  a 
blanking  interval  of  approximately  one  frame  is  required. 
(Dunn-Roberts  et  of.  1^1 ) 

The  Extended  Head-Tracking  Display 

There  is  significant  interest  in  extending  the 
functionality  of  the  SIMNET  Ml  trainer  to  include  the 
Protected  Open  Position  for  the  tank  commander  (referred 
to  as  the  TOP  hatch”)-  The  authors  have  also  designed  an 
Extended  Head-Tracking  Display.  This  display  system 
has  not  yet  been  implemented.  TTie  purpoee  of  the  EHTD 
is  not  only  to  simulate  the  MlAl  Abrams  TCs  cupola,  but 
also  to  provide  for  POP  hatch  operations,  while 
conserving  IG  channel  capacity. 
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Figure  2.  Tha  Extandod  Haad-Tracking  Diaplay  (EHTD),  Daaign  1 
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Figun  3.  lha  EHTD,  Daaign  2 


Two  poasibla  daaigna  hava  baan  conaidand  for  the 
EHTD.  In  both  daaigna,  a  ring  of  tan  2T'  (diagonal)  vidao 
moniton  providaa  tha  360*  horizontal  FOV  POP  hatch 
viaw  In  ona  daaign,  actual  pariacopaa  pointing  at  tha  ring 
of  moniton  provida  tha  viaw  through  tha  TCa  viaion 
bloeka  (figun  2).  In  tha  othar  daaign,  tha  viaw  throu^  tha 
viaion  biocka  ia  providad  by  a  aecond  ring  of  aix  moniton, 
just  as  in  tha  HTD  (figun  3). 

Tha  EHTD  usas  tha  sama  vidao  switching 
technology  as  tha  HU).  Dapanding  on  tha  daaign  choaan, 
vidao  signal  switching  from  tha  IG  can  ba  accomplishad 
aithar  with  a  ain^a  switchar,  m-  may  rsquin  two  switchan 
or  a  acalad  up  switchar.  This  also  dapanda  on  whathar  tha 
POP  hatch  viaw  will  activate  thraa  or  fiva  moniton  in  tha 


TC’a  DOV.  Thia  question  will  ba  addnsaad  with  IG 
requinmanta  later  in  thia  paper. 

Limitation  on  nquinmants  for  vertical  FOV  is  baaed 
on  tha  6*  hi^  opening  available  under  tha  elevated  hatch 
and  tha  commandai's  head  position  nlative  to  tha  radius 
of  tha  hatch.  Also,  the  capability  for  providing  high  vertical 
FOV  is  limited  by  tha  aspect  ntio  of  off-the-shalf  NTSC 
moniton. 

In  tha  EHTD,  tha  POP  hatch  view  will  adjust  for 
head  motion  within  tha  cupola.  Since  the  commander  has 
a  range  of  available  head  motion  within  tha  cupola 
(approx.  32*  in  diameter  in  SIMNET),  tha  view  out  the 
moniton  should  adjust  for  tha  correct  head  position. 


'niia  requires  head  poaitaon  information  be  passed 
over  to  the  SDiNET  host  and  used  to  adjust  the  viewpoint 
generated  by  the  SIMNET  IG.  Engineering  development 
will  be  nsreessry  to  provide  this  level  of  control  over  the 
IG  (greater  than  in  tlM  existing  SIMNET  cupola  or  in  the 
current  HTD). 

^sible  elements  of  the  tank  (the  tank  hull,  the  main 
gun,  etc)  will  need  to  be  displayed  in  the  views  from  the 
POP  hatch.  Since  the  commander’s  eyepmnt  will  be  above 
the  top  of  the  turret  in  the  POP  hatch  position,  portions  of 
the  tank  will  often  be  visible.  The  visible  tank  features 
must  be  modelled  or  mocked  up  so  they  will  be  displayed 
correctly. 

The  cupola  will  rotate  in  the  EHTD.  The  current 
SIMNET  allows  the  commander's  cupola  to  mechanically 
rotate  but  provides  only  a  restricted  view  out  of  one  vision 
block  of  the  cupola.  In  a  real  tank,  the  cupola  is  sometimes 
rotated  so  as  to  position  the  machine  gun  out  of  the 
forward  line  of  sight,  or  to  aim  the  machine  gun.  Using  an 
svisting  SIMNET  hull  and  cupcda  mechanism,  the  required 
vision  blocks  and  a  simulated  hatch  cover  and  machine 
gun  mount  will  be  incorporated  so  as  to  rotate  within  the 
panoramic  monitor  display. 

In  the  EHTD,  the  user  will  be  able  to  use  the  six  vison 
blocks  simultaneously  with  the  POP  hatch  views.  The 
commander  will  be  able  to  support  training  in  normal 
mode  (through  the  six  vision  blocks)  or  POP  hatch 
(through  the  out-the<hatch  monitors).  Both  of  the  designs 
described  earlier  for  the  EHTD  support  this  capability. 
(Moehell  €t  ol  1991). 

Tmay*  Generator  ChaTacteristica 

A  fundamental  goal  of  the  POP  hatch  display  is  to 
allow  the  platoon  commander  to  acquire  targets  and  to 
navigate.  It  would  be  unacceptable  if  his  visual  image 
were  leas  accurate  than  those  provided  through  the  vision 
blocks  of  the  SIMNET  in  its  standard  configuration. 

When  the  FOV  is  greatly  expanded,  two  distinct  costs 
are  incurred. 

•  Additional  pixels  must  be  supplied  so  that  the  visual 
angle  subtended  by  pixels  remains  constant;  and 

•  Additional  polygon  capacity  must  be  supplied  so  that 
the  greater  scene  complexity  doesn't  overload  the 
geometry  engine. 

To  accomplish  these  goals,  the  EHTD  would  require 
the  addition  of  a  BBN  GT120  image  generator  (or 
equivalent)  to  the  existing  SIMNET  GTlOl. 

With  three  screens  active  simultaneously,  the 
horizontal  FOV  would  be  108*.  If  five  screens  are  live,  the 
active  area  would  be  180*.  (Moshell  et  aL  1991) 


Three  Active  Screens  The  GT120  can  provide  two 
medium  resolution  channels  of  320  x  240  pixels  with  3000 
polygons,  and  (me  high  resolution  channel  of  640  by  480 
pix^  with  6000  pixels. 

This  will  provide  a  central  channel  whose  pixels 
subtend  3.4  minutes  of  arc  (compared  to  3.75  minutes  in 
SIMNET),  with  a  polygon  density  of  6.5  polygons  per 
square  dscnree  (compared  to  6.26  in  SIMNET).  Thus,  the 
centra]  channel  will  slightly  improve  upon  SIMNETs 
scene  and  pixel  (iensity  capacities. 

The  two  a(^acent  channels  will  have  pixels  which 
subtend  about  6.5  minutes  ci  arc  (essentially  what  one  sees 
on  the  SIMNET  Stealth  displays)  with  a  polygon  density 
of  3.3  polygons  per  square  degree.  These  chaimels  will  be 
somewhat  more  susceptible  to  overloading  (m  complex 
scenery  than  the  central  channel.  (Moshell  tt  aL  1991) 

Five  Active  Screens  Optionally,  the  SIMNET  could 
sacrifice  stune  channels  from  its  original  IG  so  that  two 
additional  acescent  channels  could  be  rendered.  'Die  pixel 
density  is  not  bad  •  in  fact,  at  320  x  256,  it  is  somewhat 
better  than  the  medium-resolution  channels  of  the  GT120. 

However,  these  channels  can  support  only  2000 
polygons.  With  an  angular  density  of  only  2.2  polygons 
per  square  degree,  these  channels  would  quite  often 
overload. 

To  provide  these  two  channels  would  require 
consuming  four  of  the  eight  SIMNET  channels, 
presumably  leaving  one  each  for  the  the  gunner  and 
loader  and  two  channels  for  the  driver.  The  horizontal 
field  of  view  for  the  driver’s  two  channels  could  be 
expanded  to  equal  the  total  FOV  of  the  original  three 
channels.  (John^n  1987;  Moshell  et  aL  1991) 

HEAD.MQUNTED  DISPLAY  SYSTEM 

We  are  also  designing  a  third  system  that  utilizes 
head-tracking  information  to  control  the  visual  display 
system.  This  system  would  use  a  color  LCD  head- 
mounted  display  (HMD)  with  a  SIMNET  IG  to  present  the 
POP  hatch  view  to  the  TC. 

The  first  design  problem  is  the  interfacing  of  the 
magnetic  head-tracker  with  the  SIMNET  IG.  As  described 
above,  the  HTD  uses  a  voltage  to  control  the  TCs  DOV. 
This  diows  control  of  the  yaw  of  the  DOV,  but  not  the 
pitch  or  roll.  To  allow  the  TC  six  degrees-of-freedom  with 
the  HMD,  the  SIMNET  host  will  have  to  be  modified  to 
change  the  DOV  baaed  on  the  position  and  orientation  of 
the  TCs  head  as  read  by  the  head-tracker.  This  will 
require  greater  control  over  the  the  SIMNET  host  software 
than  is  required  in  either  the  HTD  or  the  EHTD. 


In  addition,  tha  HTD  uaas  tha  aiialang  SIMNET IG  to 
produca  thraa  half<hai^t  vidao  imagaa.  To  uaa  tha  HMD 
with  tha  MlAl  simulator  would  raquira  hardwara 
modiScations  to  produca  two  full-haight  vidao  channals. 
Optionally.  IST/VSL  has  a  SIMNET  Staalth  Vahicla 
■imiilatof  that  produoos  thraa  ftilUhaight  vidao  imagaa  that 
may  ba  usad  to  diiva  tha  HMD. 

Anothar  challanga  is  that  human  aya  does  not  have 
tmnmtmnt  charactaristics  over  tha  entire  visual  field.  For  an 
image  to  ba  as  realistic  as  possible,  soma  pradistortion 
needs  to  ba  dona  to  tha  image  before  it  is  presented  in  a 
conventional  HMD.  At  1ST,  this  problem  is  being 
addressed  in  a  separata  prpjact  to  construct  a  HMD  that 
more  cloaaly  matchaa  the  image  perceived  by  a  human 
aye.  (Claika  1990) 

Paihapa  tha  moat  difficult  problem  is  how  to  present 
an  image  of  the  inside  of  tha  tank,  complete  with  working 
controls.  An  altamativa  is  to  mount  the  HMD  in  such  a 
fashion  as  to  allow  tha  TC  to  look  through  tha  HMD  to  sea 
tha  POP  hatch  view,  and  to  remove  the  HMD  to  work 
inside  tha  tank  cupola.  Still,  modeling  of  the  exterior  of  the 
tank  will  ba  naoeasazy  to  present  the  TC  with  a  ’’realistic” 
view  out  of  the  POP  hatch. 

Hus  system  is  currently  under  design  and  will  be 
implamantad  in  early  Fall,  1991.  (Altman,  Moahell,  and 
Dunn-Robarts,  1991) 

ITYPPRntfBNTAL  EVALUATION  OF  SYSTEMS 

Wa  are  currently  evaluating  the  HTD  system  on  two 
tasks:  tarrain-reasoning  and  target  acquisition.  As  each  of 
tha  other  ^tams  gets  implemented,  we  will  use  the  same 
experimental  design  to  evaluate  them. 

In  tha  tarrain-raaaoning  task,  tank  commanders 
observe  the  terrain  database  while  they  are  driven  through 
a  specified  geographic  area.  Their  task  is  to  locate  three 
checkpoints  spsdfiad  on  an  availabla  map.  Iha  TCs  give 
tha  driver  diractional  and  speed  commands.  They  tall  tha 
driver  to  stop  whan  they  think  that  they  have  arrived  at 
each  checkpoint.  Dependent  measures  are  speed  and 
accuracy  of  position  identification. 

In  the  target  acquisition  task,  TCs  scan  for  targets  as 
they  are  again  driven  through  a  specified  course  in  the 
database.  'TCs  do  not  give  directional  or  spaed  commands 
for  this  task.  Dependent  measures  are  number  of  correct 
target  identifications  and  target  acquisition  speeds. 

Trained  drivers  are  used  for  all  conditions.  A 
common  terrain  database,  representative  of  the  Ft.  Knox 
range,  is  used  for  ail  displays.  We  are  also  collecting 
preference  and  “wellnese"  data  (e.g.  nausea,  eye  strain) 


concerning  each  cupola  simulation.  We  are  using  both 
experienced  and  novice  subjects  as  tank  commanders. 
Each  subject  participates  in  both  tasks,  target  acquisition 
and  terrain-reasoning.  Each  subject  will  also  use  both  the 
SIMNET  mechanically  rotating  cupola  as  well  as  the 
HTD.  Counterbalancing  of  task  and  cupola  conditions  is 
employed  to  remove  the  potential  for  confounding  effects. 

Results  of  the  evaluation  of  the  HTD  will  be  available 
in  August,  1991. 

references 

Altman,  M.;  J.  M.  Moshell,  R.  Dunn-Roberts.  1991. 
Technical  Considerations  for  Use  of  Head-Mounted 
Displays  with  SIMNET.”  VSL  Memo  91.18.  Visual  Systems 
Laboratory,  1ST,  Orlando,  FL  (June). 

C3aike,  T.  1990.  ”Optimal  Virtual  World  Displays.”  DARPA 
BAA  #90-16  Proposal.  1ST,  Olando,  FL  (Oct.). 

Durm-Roberts,  R.;  R.  DaSlva;  and  M.  Altman.  1991.  "First 
Year  Report,  BAA  Contract  #0041,  Visual  Display 
Technology  R  A  D.”  Visual  Systems  Laboratory,  1ST, 
Orlando,  FL  (Apr.). 

Johiuton,  R.  S.  1987.  The  SIMNET  Visual  System.” 
Proctedinga  of  tha  9th  ITEC  Conference.  Washington, 
D.C.(Nov.). 

Moshell,  J.  M.;  C.  Lisle;  R.  Durm-Roberts;  E.  Smart.  1991. 
'Extencfing  the  SIMNET  Head-Tracking  Display.”  VSL 
Memo  91.6.  Visual  Systems  Laboratory,  1ST,  Orlando,  FL 
(Feb.). 

Polhemus.  1987.  3SPACE  ISOTRAK  User'a  Manual. 
(Colchester,  VT.  (May). 

BIQGBAPHY 

Mr.  Durm-Roberts  is  a  Visual  Systems  Scientist  at  the 
Visual  Systems  Laboratory  at  the  Institute  for  Simulation 
and  Training.  He  is  the  Project  Leader  for  the 
development  and  evaluation  of  advanced  display 
technologies  for  use  with  real-time  image  generators.  He 
is  also  involved  in  developing  ISTs  capabilities  in  Virtual 
Environment  research.  Mr.  Dunn-Roberts  holds  a 
Bachelors  degree  in  Computer  Science  from  the 
University  of  Central  Florida,  and  is  working  on  his 
Masters  degree. 


AijpendizB: 

Photographs  of  Head  Tracking  Display 


Video  Switcher 


Monitor  Ring 


Single  Monitor  and  Viewport,  Exterior  View 


Viewports,  Interior  View 


Subject  and  Experimenter 


Appendix  C: 

Photographs  of  Head  Mounted  Displays 


j 


VPL  Eyephones 


Cyberface  II 
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Software  to  Control  HTD  Video  Switcher 


/*, 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/♦ 

/* 

/* 


*/ 

HEAD  TRACKING  DISPLAY  -  Video  Switcher  Control  Program  */ 

*/ 

*/ 

FILENAME:  switcher. c  */ 

*/ 

*/ 

By:  -  Visual  Systems  Laboratory  */ 

-  Institute  for  Simulation  and  Training  */ 

-  University  of  Central  Florida  */ 

*/ 

*/ 

Copyright  (c)  1991  the  University  of  Central  Florida  */ 

-  All  Rights  Reserved  */ 

*/ 

*/ 

Authors:  Marty  Altman  */ 

Richard  Dunn-Roberts  */ 

*/ 

*/ 

FUNCTION  LIST:  */ 

-  */ 

*/ 

FUNC:  void  interrupt  (*old_timer_^routine)  (void) ;  */ 

a  pointer  to  the  old  timer  routine  */ 

FUNC:  void  interrupt  handle_timer_interrupt (void) ;  */ 

our  new  timer  interrupt  handler  */ 

FUNC:  void  set_timer (void) ;  */ 

to  reprogram  the  clock  timer  to  interrupt  at  60Hz  */ 

instead  of  18.2H2  */ 

FUNC:  void  reset_timer (void) ;  */ 

to  reprogram  the  clock  timer  back  to  18.2Hz  */ 

FUNC;  void  readConfig (void)  ;  */ 

reads  configuration  information  from  external  file  */ 

FUNC:  void  initPolhemus (void) ;  */ 

initializes  the  Polhemus  */ 

FUNC:  void  getRecord(void) ;  */ 

gets  a  data  record  from  the  Polhemus  */ 

*/ 

*/ 

General  Comments:  */ 

This  program  was  written  to  run  on  a  PC-AT,  using  */ 

Borland  C++  version  2.0  (with  the  built-in  assembler) .  */ 

It  is  designed  to  control  the  operation  of  the  Head  */ 
Tracking  Display  system.  */ 

*/ 

*/ 

Operational  Comments:  */ 

The  switcher  control  program  reads  the  head  orientation  */ 
from  the  Polhemus  magnetic  sensor  and  the  video  sync  */ 
signal  from  the  SIMNET  Image  Generator.  It  then  */ 

determines  which  screens  should  be  turned  on  (sending  a  */ 
control  word  to  the  Video  Switcher) ,  and  determines  the  */ 
appropriate  voltage  to  emulate  the  cupola's  */ 

potentiometer  (sending  a  control  word  to  a  digital-  */ 

to-analog  converter,  and  the  analog  signal  is  then  */ 

routed  to  the  SIMNET  controls) .  See  the  figure  below.  */ 

*/ 

*/ 

The  basic  layout  is  as  follows:  */ 

*/ 

+ - +  15Hz  sync  signal  + - +  */ 

I  PC_AT  1< -  SIMNET  MASSCOMP  I  */ 

I  - +  I  I  */ 

1  (switcher)  - - - +  |  |  I  */ 


/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 


I 

I 


+ 


+— 


+ 


+' 

I 

I 

I 

+' 


{program  }  |< - + 

l<— +  I 

- +  I  I 


head  orientation 


- +  I 

POLHEMUS  I  I 


+ 


video  sync  signal  | 

I 

- +  I 

SIMNET  IG  I  I 

- + 

I 

- + 


+ 


+ 


which  screens  to 
turn  on 

+ - + 

I  VIDEO  SWITCHER  | 


I  + - + 

I 

1  emulation  of  potentiometer 
I  (analog  voltage) 

I 

I  + - + 

I  I  SIMNET  CONTROLS  1 

+ - >1  I 

I  I 

+ - + 


For  further  system  details,  refer  to  the  project  report. 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

-*/ 


/*  Type,  Structure  &  Constant  Defs  */ 
♦define  BLANK  SWITCHER  WORD  OFFFh 


/*  Necessary  Include  Files  */ 


♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


<conio .h> 
<dos .h> 
<math.h> 
<stdio .h> 
<string.h> 
"comport -h" 
"polhemus .h" 


/* - - - - - «—*/ 

/*  Function  Prototypes  */ 

j  — «  —  M —  j 

void  set_timer (void) ; 
void  reset_timer (void) ; 

void  interrupt  handle_timer_interrupt (void) ; 
void  readConf ig (void) ; 
void  initPolhemus (void) ; 
void  getRecord(void) ; 


/* - */ 

/*  Globals  */ 


void  interrupt  (*old_timer_routine) (void) ; 
int  switcher  control  word; 


int 

int 

char 

char 

int 

int 

int 

int 

int 

int 


switcher_control [ 6]  = 

{  0x0951,0x0546 
TC_yaw  -  0; 
center_screen  *  0; 
last_center_screen  -  1; 
cig_angle_control_word; 
cig_angle_control [ 6 ]  - 
{  0x07FF,0x0AA9 
screen[360]  - 

{3, 3, 3, 3, 3, 3, 3, 
2, 2, 2, 2, 2, 2, 2, 
2, 2, 2, 2, 2, 2, 2, 
1,1, 1,1, 1,1,1, 
1,1, 1,1, 1,1,1, 
0,0, 0,0, 0,0,0, 
0,  0,  0, 0, 0,0,0, 
5,  5,  5,  5,  5,  5,  5, 
5,  5,  5,  5,  5,  5,  5, 
4, 4, 4, 4, 4, 4, 4, 
4, 4, 4, 4, 4, 4, 4, 
3,  3,  3,  3,  3,  3,  3, 
comPort ; 
baudRate; 
initString [100] ; 
termstring ( 100] ; 
high  =  0; 
sync  ••  0; 

screen_changed  -  0; 
change_the_s wit Cher  - 
delay_cycles  -  10; 
delay_counter  «  0; 


,0x0519,0x0465,0x0195,0x0654  }; 


,  0x0D54, 0x0000, 0x02AA, 0x0554  }; 


3,  3,  3, 
2,2,2, 
2,2,2, 
1,1,1, 
1,1,1, 
0 ,  0 ,  0 , 
0,0,0, 
5,5,5, 
5 ,  5 ,  5 , 
4,4,4, 
4,4,4, 
3,3,3, 


3.3.3, 
2,2,2, 
2,2,2, 
1,1,1, 
1,1,1, 

.0,0,0, 

,0,0,0, 

>5,5,5, 

>5,5,5, 

4.4.4, 
4,4,4, 

>3,3,3, 


3.3.3, 
2,2,2, 
2,2,2, 
1,1,1, 
1,1,1, 
0,0,0, 
0,0,0, 
5,5,5, 
5,5,5, 

4.4.4, 
4,4,4, 
3,3,3, 


3.3, 
2,2, 
2,2, 
1,1, 
1,1, 
0,0, 
0,0, 
5,5, 
5,5, 

4.4, 
4,4, 
3,3}; 


/  * - - - - - - - - - - - 

/*  Function  set_timer  */ 

/*  */ 

/*  PARAMETERS:  */ 

/*  void  */ 

/★  ★/ 

/*  PROCESS:  */ 

/*  This  routine  is  used  to  reprogram  the  clock  timer  to  interrupt  */ 

/*  at  60Hz.  Note  that  it  is  virtually  impossible  to  accurately  */ 

/*  detect  a  15Hz  signal  when  checking  every  18.2Hz  (the  normal  */ 

/*  setting  for  the  clock  timer  interrupt  on  a  PC) .  Also  note  */ 

/*  that  because  the  PC  for  this  project  was  dedicated,  it  was  */ 

/*  not  a  problem  for  that  PC's  sense  of  time  to  be  distorted.  */ 

/*  */ 

/*  RETURN  VALUE:  */ 

/*  void  */ 

void  set_timer (void)  {  /*  program  timer  to  interrupt  at  60  Hz  */ 

asm  { 

cli 

push  ax 

mov  al, 00110110b 
out  43h,al 

mov  ax, 19886 

out  40h,al 

mov  al,ah 

out  40h,al 

pop  ax 

sti 


) 


} 


/*: - - - - - - - - */ 

/*  Function  reset  timer  */ 
/*  */ 
/*  PARAMETERS:  */ 
/*  void  */ 
/*  */ 
/*  PROCESS:  */ 
/*  This  routine  is  used  to  reprogram  the  clock  timer  to  interrupt  */ 
/*  at  18.2Hz  (the  normal  setting  for  a  PC).  */ 
/*  */ 
/*  RETURN  VALUE:  */ 
/*  void  */ 


void  reset_timer (void)  {  /*  program  timer  to  interrupt  at  18.2  Hz  */ 

asm  { 


cli 

push 

ax 

mov 

al, 00110110b 

out 

43h,al 

mov 

ax,  0 

out 

40h,al 

mov 

al,  ah 

out 

40h,al 

pop 

sti 

ax 

} 

} 


/*  Function  handle_timer_interrupt  */ 

/★  ★/ 

/*  PARAMETERS:  */ 

/*  void  */ 

/★  */ 

/*  PROCESS:  */ 

/*  This  interrupt  routine  is  installed  on  the  clock  timer  (OxlC) ,  */ 

/*  and  is  used  to  monitor  the  joystick  port.  The  joystick  port  */ 

I*  is  where  the  15Hz  sync  signal  from  the  SIMNET  MASSCOMP  is  */ 

/*  brought  in.  The  routine  looks  for  the  falling  edge  of  the  */ 

/*  signal,  and  when  detected  sets  a  flag  called  sync  to  1.  */ 

/*  Note  that  in  order  for  this  scheme  to  work,  the  clock  timer  */ 

/*  must  have  been  'sped  up'.  */ 

/★  */ 

/*  RETURN  VALUE:  */ 

/*  void  */ 

void  interrupt  handle_timer_interrupt (void)  { 
asm  { 

mov  dx,201h 

in  al,dx 

test  al,20h 

j  z  gone_low 

mov  high,l 

) 

return; 


if  (high)  { 

asm  { 


} 

return; 


mov 

mov 


sync, 1 
high, 0 


/*  Function  main  */ 
/*  */ 
/*  PARAMETERS:  */ 
/*  void  */ 
i*  */ 
/*  PROCESS:  */ 
/*  This  is  the  main  routine.  */ 
/*  */ 
/*  RETURN  VALUE:  */ 
/*  void  */ 


void  main (void)  { 

/**★*  banner  ****/ 
clrscr  ( ) ; 

printfC'Head  Tracking  Display  Control  Program. \n" ) ; 
printf (”\n\nPress  any  key  to  exit."); 

/★*★*  set  initial  values  *♦**/ 
switcher_control_word  -•  switcher_control  [0] ; 
cig_angle_control_word  •=  cig_angle_control [0] ; 

/*★**  other  initialization  ****/ 
readConfigO  ; 
initPolhemus ( ) ; 

take  over  the  timer  interrupt  ****/ 
old_timer_routine  -  getvect (OxlC) ; 
setvect (OxlC,  handle_timer_interrupt) ; 

/****  reprogreun  to  60Hz  **♦*/ 
set_timer  {) ; 

/******★★  begin  MAIN  LOOP  ********/ 
while  ( ! kbhit ( ) )  { 

/*★**  get  a  record  from  the  Polhemus  ****/ 
getRecordO  ; 

/***★  determine  center  screen  ****/ 
center_screen  -  screen [TC_yaw] ; 
if  (center_screen  !-  last_center_screen)  { 

switcher_control_word  -  switcher_controlIcenter_screen]; 
cig_angle_control_word  -  cig_angle_control [center_screen] 
asm  { 

mov  ax,center_screen 
mov  last_center_screen,ax 

mov  screen_changed, 1 

} 

} 

/****  if  we  need  to  update  the  cig  angle  ★***/ 
if  (sync)  { 

if  (screen_changed)  { 


asm  { 


} 


} 

asm 


} 


} 


mov 

mov 

out 

mov 


mov  ax , BLANK_SWI TCHER_WORD 

mov  dx,030Ch 

out  dx,ax 

mov  ax,  cielay_cycles 

mov  delay_counter, ax 

mov  screen_changed,  0 

mov  change_the_switcher, 1 


ax, cig_angle_control_word 

dx,0302h 

dx,ax 

sync, 0 


/****  if  we  need  to  update  the  video  switcher  ****/ 
if  (chanc^e_the_switcher)  { 

if  {delay_counter)  { 
asm  { 

dec 


} 

else 


} 


asm  ( 


mov 

mov 

out 

mov 


delay_counter 


ax, switcher_control_word 

dx, 030Ch 

dx,ax 

change_the_switcher,  0 


}  /★*★*★**★  end  MAIN  LOOP  ********/ 


/★♦*★  clean  up  after  ourselves  ****/ 
reset_timer  ()  ; 

setvect (OxlC,  old_timer_routine) ; 
DeinstallDrivers ( ) ; 


/*  Function  getRecord  */ 

/*  */ 

/*  PARAMETERS:  */ 

/*  void  */ 

/*  */ 

/*  PROCESS:  */ 

/*  This  routine  is  used  to  get  a  data  record  from  the  Polhemus.  */ 

/*  Since  we  are  only  interested  in  the  orientation  about  the  */ 

/*  vertical  axis,  the  only  value  we  update  is  the  TC  yaw.  */ 

/*  */ 

/*  RETURN  VALUE:  */ 

/*  void  */ 

void  getRecord (void)  { 

int  retcode,  j,  temphex,  tenqpint; 

char  data[255],  inputt255),  temp,  recordType; 

float  yaw; 


ReceiveData (  comPort,  data,  18  ); 
if  (  ! (  data[0]  &  0x80  )  )  { 

while  (  !(  data[0]  &  0x80  )  ) 

ReceiveData {  comPort,  data,  1  ); 

ReceiveData (  comPort,  (data+l),  17  ); 

} 

for  (  j  -  0;  j  <  7;  j++  )  { 

data[j]  -  (datalj]  &  0x7F)  |  {  {  data[7]  &  0x01  )  «  7  ) ; 
data(7]  -  data[7]  »  1; 

} 

for  (  j  “  8;  j  <  15;  j++  )  { 

data[j]  =  (datafj]  &  0x7F)  |  {  {  data[15]  &  0x01  )  «  7  ); 
data [15]  -  data [15]  »  1; 

} 

data[16]  »  (data[l6]  &  0x7F)  1  (  (  data[17]  &  0x01  )  «  7  ); 

data [15]  =  data [16]; 

tempint  -  * (int  *) (data+10) ; 

yaw  =  (( (float) tempint ) *230 .0/32767 . 0) +180 . 0; 
yaw  “  yaw  <  0.0  ?  0.0  :  yaw; 
yaw  -  yaw  >  360.0  ?  360.0  :  yaw; 

TC_yaw  =  (  RABS (  TC_yaw  -  yaw  )  )  <  EPSILON  ?  TC_yaw  :  yaw; 


/  * - - - - - - - - — - - - -*! 

/*  Function  readConfig  */ 
/*  */ 
/*  PARAMETERS:  */ 
/*  void  */ 
/*  */ 
/*  PROCESS:  */ 
/*  This  routine  is  used  to  read  values  from  an  external  config  */ 
/*  file.  */ 
/*  */ 
/*  RETURN  VALUE:  */ 
/*  void  */ 


void  readConfig (void)  { 

FILE  *configFile; 

char  configBuf fer [129] ,  *configType,  *conf igValue; 

int  i; 

if ( (configFile  -  fopen ("config.dat", "rt") )  “  NULL)  { 

fprintf (stderr,  "Configuration  file  not  found\n") ; 
exit (-1) ; 

} 

while  (fgets (configBuffer, 128, configFilu)  !-  NULL)  { 

if  ( (configType  -  strtok (configBuf fer, "  \n\t"))  !-  NULL)  { 
if  ( (configValue  -  strtok (NULL, "  \n\t") )  —  NULL)  { 
print f ("value  not  found  for  type  *  %s\n", 
configType) ; 
exit (-1) ; 

} 

} 

else  continue; 

if  (  !strcmp(  configType,  "polhemusComPort"  )  ) 
comPort  -  atoi (  configValue  ) ; 


if  (  !strcmp(  configType,  "polhemusBaudRate"  )  ) 
baudRate  -  atoi (  conf igValue  ) ; 


if  (  !strcmp(  configType,  "delay_cycles"  )  )  { 
delay_cycles  -  atoi (  conf igValue  ) ; 
if  (delay_cycles->-0)  delay_cycles“10; 
delay_counter  -  delay_cycles; 

} 

if  (  !strcmp(  configType,  "polhemusInitString"  )  ) 
strcpy (  initString,  conf igValue  ) ; 

if  (  !strcmp(  configType,  "controlWords"  )  )  { 

sscanf(  configVaiue,  "%x",  &switcher_control [0]  ); 
switcher_control_word  -  switcher_control [0] ; 
for  (i»l;  i<6;  i++)  { 

if  ( {configValue-strtok (NULL, ”  \n\t") ) ==NULL)  { 
printf ("value  not  found  for  type  =  %s\n" 
configType) ; 
exit (-1) ; 

} 

sscanf (configVaiue, "%x", &switcher_control [i] ) ; 


f close (conf igFile) ; 

} 


!  — K  — •■•at  — K  — — K— K  — K  — K— K  — ■>  — K— S  — K  — K  — B  — B  — B  — ae  —  SS  — =  — a:— J 

/*  Function  initPolhemus  */ 

/★  */ 

/*  PARAMETERS:  */ 

/*  void  */ 

/*  */ 

/*  PROCESS:  */ 

/*  This  routine  is  used  to  initialize  the  Polhemus.  */ 

/*  */ 

/*  RETURN  VALUE:  */ 

/*  void  */ 

/* - - - - */ 

void  initPolhemus (void)  ( 

char  *coinmandPtr,  command [ 30 ]  ; 

int  commandLength; 

InitComPort (  comPort,  DIVISOR (  baudRate  )  ); 

LowerDTR (  comPort  ) ; 

commandPtr  -  strtok  (  initString,  ); 


while (commandPtr)  { 

strcpy (  command,  commandPtr  ) ; 

if  (  (  commandLength  -  strlen(  command  )  )  !-  1  )  { 
command [commandLength]  -  13; 
command [++commandLength]  -  0; 

} 

TransmitData (  comPort,  command,  commandLength  ); 
commandPtr  «  strtok (  NULL,  ); 

} 


RaiseDTR(comPort) ; 
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Schematics  of  HTD  Video  Switcher 
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Note:  The  100k  resistor  and  the  0.1  uF  capacitor  were 
added  in  order  to  eliminate  a  D.C.  voltage  that  was 
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The  following  diagram  shows  the  physical  layout  of  the  MAX 
454  video  switching  chips. 
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Note:  see  circuit  diagram  of  MAX  4S4  for  connections 
of  individual  video  switchers  UO-US. 


^pendixF: 

Software  to  Control  SIMNET  Head  Tracking  Display 


||SZMNET  Ml  with  integrated  Polhemus 
FILENAME :  ml_polhenius .  c 


-  MaK  Technologies 
and 

-  Visual  Systems  Laboratory 

-  Institute  for  Simulation  and  Training 

-  University  of  Central  Florida 


Copyright  (c)  1991  MaK  Technologies  and 

the  University  of  Central  Florida 
-  All  Rights  Reserved 


Authors;  Warren  Katz  and  Marty  Altman 


PUBLIC  FUNCTION  LIST; 

FUNC:  Woid  polhemus^init ()  -  initialize  Polhemus 
FUNC:  l&oid  polhemus^simul ()  -  read  and  stuff  a  value  for 
the  z  rotation 

FUNC;  ivoid  polhemus_exit ( )  -  shutdown  the  Polhemus 


PRIVATE  FUNCTION  LIST; 

FUNC;  int  open_j>olhemus (char  *device_name)  -  actual  open 

FUNC;  int  close_polhemus ()  -  reset  port 

FUNC;  int  copy_termio (struct  termio  source,  dest)  -  copy 


General  Comments: 

This  file  integrates  the  Polhemus  Head  Tracker  with 
the  Ml  cupola,  bypassing  the  DTAD  card.  The  Polhemus 
head  tracker  computer  sends  a  Z  rotation  over  an 
RS-232  interface. 


/  - ————*/ 

/*  Type,  Structure  and  Constant  Defs  */ 

♦define  FORMAT_ASCII  0 

♦define  FORMAT_BINARY  1 

♦define  UNIT_INCHES  0 

♦define  UNIT_CENTIMETERS  1 

♦define  DATA_PACKET_XYZ  0 

♦define  DATA_PACKET_AER  1 

♦define  DATA_PACKET_XYZAER  2 

♦define  PACKET  SIZE  24 


!*  Necessary  Include  Files  */ 
/  - 


♦Include  "stdio.h 
♦include  "fcntl.h 


finclude  ’•siin_dfns.h” 
finclude  •’sim_types  .h" 
finclude  "8im_inacros.h" 

finclude  <stdio.h> 
finclude  <string.h> 
finclude  <sys/ioctl.h> 
finclude  <8ys/types.h> 
finclude  <8y8/file.h> 
finclude  <tennio.h> 
finclude  <uni8td.h> 
finclude  <£cntl.h> 


/*  Global8  */ 

static  float 
int 

struct  termio 
char 


azimuth  -  0.0; 

device,  result,  packet_si2e; 
polhemus_control,  old_port_control; 
temp__bu£f  er  [80] ; 


/*_ - — — — — — - */ 

/*  PUBLIC  functions  */ 
/  / 


t*  Function  polhenius__init  */ 
/*  */ 
/*  PARAMETERS:  */ 
/*  void  */ 
/*  */ 
/*  PROCESS:  */ 
I*  This  function  is  called  to  initialize  the  Polhemus  on  */ 
/*  'tty2'.  If  successful,  a  request  is  made  for  the  first  */ 
/*  data  record.  (Writing  a  "P"  is  a  request  for  data.)  */ 
/*  */ 
/*  RETURNS:  */ 


void  polhenius_init  ( ) 

{ 

if  (open_polhemus ("/dev/tty2")  —  0)  { 

printf ("ERROR  OPENING  POLHEMUS!!\n"); 
return; 

} 

write (device, "P", 1) ;  /*  request  first  packet  */ 


/*Ptaietion  polhemus  sinml 
f* 

/*  PARAMETERS: 

/*  void 

!* 

/*  PROCESS: 

/*  This  function  is  called  once  during  each  frame.  It 

/*  reads  the  data  packet  from  the. Polhemus,  grabs  the 

/*  azimuth  value  (z  rotation),  stuffs  the  new  value  in 

/*  place  of  the  mechanical  cupola,  and  requests  the  next 

/*  data  packet  from  the  Polhemus. 


/*  */ 

/*  RETURNS:  */ 

/*  void  */ 

/  - - - - - - - - - - - *  / 

void  polhemus__sijnul  0 
{ 

read(device,  ten5>_buf fer,  PACKET_SIZE) ;  /*  read  packet  */ 

sscanf  (fi  {tenip_buf£er  [3] ) ,  "%f",  fiazimuth) ;  /*  aziiti  first  in  AER  packet  */ 

cupola_cws_new_value ( (azimuth/180 .0) *1 . 195) ;  /*  emulate  the  pot  */ 

/*  dividing  azimuth  by  180.0  scales  to  {-1.0, 1.0]  */ 

/*  multiplying  by  1.195  stretches  this  range  to  -  {-1.2, 1.2]  */ 

/*  This  new  value  gives  full  circle  capability,  avoiding  the  */ 

/*  'dead  spot'  that  the  mechanical  cupola  has.  */ 

write (device, "P", 1) ;  I*  request  next  packet  */ 

} 

/*i^nction  polhemus  exit  */ 

*/ 

/*  PARAMETERS:  */ 

/*  void  */ 

/*  */ 

/*  PROCESS:  */ 

/*  This  function  is  called  once  when  finished  to  shutdown  */ 

/*  the  Polhemus  and  restore  the  port  to  its  original  */ 

/*  configuration.  */ 

/*  */ 

/*  RETURNS:  */ 

/*  void  */ 

/  - - - - — — — - - - - - - — *  / 

void  polhemus_exit ( ) 

{ 

close_polhemus ( ) ; 

) 

/  - - 

/*  PRIVATE  functions  */ 

/* - — - «*/ 

/*_— - - - — - - - - — - - — - - - .*f 

/*  Function  open_polhemus  */ 

/*  */ 

/*  PARAMETERS:  */ 

/*  char  *device_naune  -  the  tty  port  to  open  */ 

/*  */ 

/*  PROCESS:  */ 

/*  This  function  opens  the  port,  storing  the  termio  data  */ 

/♦  so  that  it  can  be  restored  later  in  the  close  routine.  */ 

/*  It  also  sets  the  Polhemus  to  ASCII  mode,  and  sets  the  */ 

/*  Polhemus  data  packet  to  azimuth/elevation/roll.  */ 

/*  */ 

/*  RETURNS:  */ 

/*  on  success,  returns  1  */ 

/*  on  failure,  returns  0  */ 

- — — - 


int  open_polhemus (  device_name  ) 
char  *device  name; 


{ 

strcpy  (temp_buf fer,  device_naine) ; 
if  ((device  -  open (teinp_buf fer,  0_RDWR) )  <  0)  { 
printf ( "ERROR  in  open_polhemus :  ")  ; 

printf("open  failed  on  %3\n",  teinp_buffer)  ; 
return ( 0 ) ; 

} 

if  (ioctl (device,  TCGETA,  &old_port_control)  <  0)  { 
printf ("ERROR  in  open_polhemus :  "); 

printf ("getting  old  port  control  information  failed\n") ; 
return ( 0 ) ; 

} 

copy_termio (&old_port_control,  fipolhemus_control) ; 

polhemus_control . c_iflag  -  IXOFF  |  IXON  |  IGNBRK; 
polhemus_control,c_oflag  -  0; 

polhemus_control . c_cf lag  «  B19200  |  CSS  I  CREAD; 
polhemus_control . c_lf lag  -  0; 
polhemuc__control .  c_line  *>  0; 

polhemus_control,c_cc[VMIN]  -  PACKET_SIZE;  /*  sizeof (DATA_PACKET_AER) 
polhemus_control.c_cc[VTIME]  -  0; 

if  (ioctl (device,  TCSETA,  4polhemus_control )  <  0)  { 
printf ("ERROR  in  open_polhemus :  ") ; 

printf ("setting  polhemus  control  information  failed\n"); 
return (0) ; 

} 

write (device, "F",l);  /*  set  ASCII  */ 

write (device, "04\r", 3) ;  /*  set  DATA_PACKET_AER  */ 

return(l);  /*  everything  must  have  worked  to  get  this  far  */ 


} 

/* - - - - - - - - */ 

/*  Function  close_polhemus  */ 

/*  */ 

/*  PARAMETERS:  */ 

/*  void  */ 

/★  */ 

/*  PROCESS:  */ 

/*  This  function  restores  the  port  to  its  original  */ 

/*  configuration.  */ 

/*  */ 

/♦  RETURNS:  */ 

I*  void  */ 


int  close_polhemus 0  { 

if  (ioctl (device,  TCSETA,  old_port_control)  <  0)  { 
printf ("ERROR  in  close_polhemus :  "); 

printf ("reset  old  port  control  info  failed\n"); 
return (0) ; 

} 

return (1)  ; 

} 


/*  Function  copy_termio 

/* 


/*  PARAMETERS:  */ 
/*  struct  termio  source,  dest  -  port  configuration  data  */ 
/*  */ 
/*  PROCESS;  */ 
/*  This  function  copies  the  tennio  data  from  one  structure  */ 
/*  to  another.  */ 
/*  */ 
/*  RETURNS:  */ 
/*  void  */ 
/  *  / 


copy__termio  (  source,  dest  ) 

Struct  termio  * source,  *dest; 

{ 

dest->c_iflag  -  source->c_iflag; 
dest->c_oflag  -  source->c_oflag; 
dest->c_cflag  -  source->c_cflag; 
dest->c_lflag  -  source->c_lflag; 
dest“>c_line  -  source->c_line; 
strncpy (dest->c_cc,  source->c_cc,  NCC) ; 

) 


♦define  VERSION  "6.???? 


/ 


***********11*11************************************* 
*  SYSTEM  NAME:  ml 


*  FILE; 
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★ 
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****★*★★*★★*★************************/ 


♦include  "stdio.h" 
♦include  "ctype.h" 
♦include  "signal. h" 
♦include  "sys/mpadvise.h" 
♦include  "sim_dfns.h" 
♦include  "sim_macros .h" 
♦include  "sim_types .h” 

♦include  "mass__stdc.h" 
♦include  "dgi_stdg.h" 
♦include  "sim_cig_if .h” 

♦include  "pro_assoc.h" 
♦include  ”pro_sim.h" 
♦include  "status.h" 
♦include  "status_ml  .h" 
♦include  ”veh_type.h" 

♦include  ”fifo_dfn.h" 
♦include  "fifo.h" 
♦include  "bigwheel.h" 
♦include  "libterrain.h" 
♦include  "libkin.h" 
♦include  "libfail.h” 
♦include  "libcig.h” 
♦include  "libmsg.h" 
♦include  "bbd.h" 

♦include  "libhull.h" 
♦include  "libidc.h" 
♦include  "libmain.h" 
♦include  "libmem.h" 
♦include  "libnetwork.h" 
♦include  "librepair .h" 
♦include  "librva.h" 
♦include  "libsusp.h" 
♦include  "libturret .h" 
♦include  "libsound.h" 
♦include  "libmap.h" 

♦include  ”ml_ammo.h" 
♦include  "ml_bcs.h" 
♦include  "ml_cntrl.h" 
♦include  "ml_cupola . h " 


linclude 
# include 
linclude 
linclude 
linclude 
linclude 
linclude 
linclude 
linclude 
linclude 
linclude 
linclude 
linclude 
linclude 
linclude 
linclude 
linclude 
linclude 
linclude 
linclude 
linclude 


”nil_dtrain.h" 
"ml__elecsys .  h" 
"ml_f  ailure .  h" 
uelsys .  h" 
"ml_f irect 1 . h" 
"nil_weapons .  h" 
"ml_handles .  h" 
"ml__hydr  sy  s .  h" 
"ml_keybrd.h" 
"ml__laser .  h" 
"ml_main .  h" 
"nil_meter .  h" 
"mljpolhemus  .h" 
"ml_pots  .h" 
"ml__repair  .h" 
•'ml__resupp.h" 
"ml__sound.h” 
"ml_^turret  .h" 
"ml^vision.h” 
"ml^status .h" 
”inl~*thennal .  h" 


linclude  "timer s.h” 
linclude  "dtad.h" 
linclude  "status. h" 
linclude  "cmc.h” 
♦include  "cmc_timer .h" 
♦include  "cmc_status .h" 
♦include  "ser  status. h" 


♦define  PARS  FILE 
/*  ^ 

♦define  CONFIG  FILE 
♦define  VEH_MAP_FILE 
♦define  ASID  MAP_FILE 
*/ 


"/siinnet/vehicle/nil/data/ml_pars .  d" 

" /simnet/vehicle/ml/data/ml_vconf ig . d" 
"  /  s  iinne  t  /  data  /  vehjmap .  d" 
"/simnet/data/asid.d" 


BOOLEAN  debug  •  FALSE; 

BOOLEAN  print_overruns  »  FALSE; 

vstatic  BOOLEAN  polhemus_f lag; 
static  BOOLEAN  guise__override  -  FALSE; 
static  int  guise_to_use; 

♦define  MESSAGE  "Eat  at  Mama  Luigi' s” 

♦define  BOLD_FLASH  "[l;5m" 

♦define  NORMAL  "lOm" 


I*  from  the  ' -p'  switch  */ 

static  ActivateRequestVariant  init__activ,  *initial_activation  -  NULL; 
♦ifndef  SIMBFLY 


void  exit  ( ) ; 
lendif 


void  print__help  (prognzune) 
char  *progname; 

( 

printf  ("Osage:  %s  \n",  progname) ; 
print f  ("switches .. .\n") ; 

printf  ("\t-a (symmetric  buffers:  receive  send)\n"); 

printf  {"\t-c(upola  and  loader's  periscope  controllable  by  keyboard) \n") ; 
printf  ("\t-C(atc  Hardware  used)\n"); 
printf  ("\t-d(ebugging  on)\n"); 


printf  ("\t-D (ebugging  for  static  vehicles  on)\n"); 

printf  ("\t-e (thernet  off)\n"); 

printf  ("\t-E (xercise  id)\n"); 

printf  ("\t-F(ail  debug  on)\n"); 

printf  ("\t-g (raphics  off)\n"); 

printf  ("\t-G(ui8e  to  use  instead  of  DS_M1,  in  hex)\n”); 
printf  ("\t-h(elp) \n") ; 
printf  ("\t-i (ndicate  vpkt  sent)\n"); 
printf  ("\t-k{eyboard  on)\n"); 

printf  ("\t-in{essages  for  equipment  status  not  printed)  \n") ; 
printf  ("\t-n (etwork  verbose  mode)\n"); 
printf  ("\t-N(ight  vision  on)\n"); 
printf  ("\t-o (verrun  printing) \n") ; 

printf  ("\t-p (osition)  initiai_X  initial_Y  initial_heading\n") / 
printf  ("\t-P  (riority  list  debugging  on)\n''); 
printf  ("\t-s(ound  off)\n"); 

printf  ("\t-t  (errain  database)  database_naine\n") ; 
printf  ("\t-T  ded  database)  database_neune\n")  ; 
printf  ("\t-v(erbose  mode  on)\n”); 
printf  ("\t-? (help) \n”) ; 


void 

print_veh_logo  ( ) 

{ 

printf  (”%c[H%c(J 
printf  (” 
printf  (" 
printf  (" 
printf  (" 
printf  (" 
printf  {" 
printf  (" 
printf  {" 

printf  (”————. 

printf  (" 

printf  (” 

printf  (” 

printf  (" 

printf  (” 

printf  (" 

printf  (" 

printf  ("\n”); 

printf  (•' 

printf  (" 

printf  (" 

printf  (" 

printf (" 


'\033',  '\033'); 


/*  clear  screen  */ 

\n") 

\n") 

\n") 

\n”) 

- +  I  \n") 

+  +  +  I  \n") 

+  +  +  +  +  I  \n") 

/+  +  +  +  +  +  +  -f  +  +  +  +  +  +  +  +  +  +  +  \n")  ; 

— %C%5%S%C%S  +  \n”,Oxlb,BOLD_FLASH, 

\\+  +  \n”); 

+  +  +  +  +  +  +  +  +  +  +  +  +  +  +  \n’') ; 

+  +  +  \n") ; 

\\  +  /  \n"); 

\\ - /  \n"); 

W  {  )  (  )  (  )  {  )  {  )  (  )  /  \n"); 

-  \n"); 


- \n") ; 

SIMNET  Ml  SIMULATION  V%s\n”,  VERSION); 
Copyright  (c)  1990  BBN  Systems  and  TechnologiesXn") ; 
All  rights  reserved. \n" ) ; 

- \n") ; 


♦ifndef  SIMBFLY 


sleep  (5); 
felse 


Sleep (8030) ; 
fendif 

printf  ("%c[H%ctJ",  '\032',  '\033'):  /*  clear  screen  */ 

) 

void  veh_spec_8tartup  ( ) 

< 

extern  void  rtc  init  clock (); 


/* 

I* 


rtc_init_clock  ( ) ; 

inain_read.jpars_file  (PARS__FILE)  ;*/ 

vehicle_type  is  in  activate.  We  DO  need  to  set  simulator  type,  however 
network  set  vehicle_type  ((int)  VEH_MAIN_BATTLE_TANK) ; 

*/ 

network_8et_siinulator__type  (siniulator_SIMNET_Ml) ; 
use__cig_reconfig_startup  (); 

cig__set_view_config_file  (get_vconfig_filel  ()); 
map_vehicle__£ile_read  (get_veh_map_£ile  ()); 
niap_read_asTd_£ile  (get_asid_inap_fTle  ()); 
keyboard^init  ( ) ; 

/*  weapons_download_ballistics_tables ( ) ; */ 

/*  this  £unction  should  move  out  o£  vehicle  speci£ic  code  */ 

/*  inap__£ile_read("/simnet/data/trial_map.d")  ;*/ 
map_£ ile_read  (get_aramo_map_£ile  ( ) )  ; 

£ailure_init  ();  /*  initialize  damage  tables  */ 

map_get_damage_£iles () ;  /*  must  be  after  £ailure_init  */ 

} 

void  veh_spec_idle  () 

{ 

status_simul  (); 
keyboard_simul  () ; 
io_simul__idle  (); 

if  (initial_activation  I-  NULL) 

{ 

process_activate_request  (initial_activation, (SimulationAddress  *)  0, 
0,  network__get_exercise_id  {)); 
initial_activation  -  NULL; 

} 

} 

void  veh  spec_init() 

{ 

/*  Order  dependent  initialization  here.  */ 

cupola_init  ();  /*  must  be  before  controls  */ 

sound_init  ();  /*  before  controls,  after  ides  */ 

status_preset  ();  /*  after  idc  init  */ 

/*  does  ammo_init  still  need  to  be  before  controls  or  */ 

/*  is  this  one  of  those  historical  comments?  */ 

/*  I  am  assuming  the  latter.  -CJC  3/16/90  */ 

/*  anino_init  ();  /*  must  be  before  controls  */ 

controls_fsm_init  (); 

resupply_init  ( ) ; 

meter_init  () ;  /*  must  be  before  elect sys  */ 

electsys_init  ();  /*  this  must  be  after  controls_init  */ 

hydraulic_init  (); 

firectl__init  ();  /*  this  must  be  before  laser_init  */ 

/*  £uel_init  ();*/ 
drivetrain_init  ( ) ; 
handles__init  ( ) ; 
laser_init  () ; 
bcs_init  ( ) ; 

weapons_^init  () ;  ’ 

vision_restore_all_blocks  (); 

controls_edge_init  (); 
app_init  (); 
thermal__init  ( ) ; 

con£ig_j>os_init2 (  kinematics_get_o_to_h (veh_kinematics) , 

kinematics_get_w_to_h (veh_kinematics )  ) ; 


) 


void  veh_spec_siniulate  () 

{ 

status_simul  (); 

#if  defined (SIMBFLY) 

{ 

I*  ♦##  don't  count  printing  of  stats  against  simulation  */ 
long  start,  end; 

start  -  rtc; 
lceyboard_simul  ( )  ; 
end  -  rtc; 
bbd_bit_st art [60]  + 

} 

telse 

keyboard_simul  () ; 

#endif 

sound_simul  (); 
controls_simul  (); 
handl6s_simul  (); 
anTOO_simul  ( )  ; 
resupply_simul  ( ) ; 
elect sys_simul  () ; 
hydraulic_simul  (); 
fuel_simul  (); 
drivetrain_siinul  {); 
bcs_simul  ( ) ; 
weapons_simul  (); 
if  (polhemus__flag) 
polhemus_simul ( ) ; 
cupola_simul  (); 
thermal  simul  ( ) ; 

) 

void  veh_spec_stop ( ) 

{ 

idc_init  ( ) ; 
sound__init  ( ) ; 
vision_break_all_blocks  (); 

} 

void  veh_spec_exit ( ) 

{ 

int  n\im_ticks; 
keyboard_exit_gracefully  (); 

printf  ("Elapsed  pseudo  time  %lf  secs.Nn",  timers_get_current_time  ()); 
printf  ("Elapsed  time  %d  ticks. \n",  timers_get_current_tick  ()); 

printf  ("Elapsed  real  time  %lf  secs.Xn", 

(timers_elapsed_milliseconds  ()  /  1000.0)); 
if  ((num_ticks  -  timers_get_current_tick  ())  !-  0) 

{ 

printf  ("Average  frame  time  %lf  msecs. \n", 

((REAL)  timers  elapsed  milliseconds  ()  /  (REAL)  num  ticks)); 

} 

network_print__statistics  (); 
net_close  (net_handle) ; 

) 

main  (argc,  argv) 
int  argc; 
char  ♦argv  ( ] ; 

{ 


/*  END_FRAGMENT(60)  */ 

-  end  -  start;/*  START_FRAGMENT (60)  */ 

/*  should  be  first  */ 

/*  must  be  before  kinemat  simuls  */ 


int 


i; 


signal  (SIGINT,  (PFI) exit_gracefully) ; 
signal  (SIGTERM,  (PFI) exit_gracefully) ; 

enter_gracefully  ();  /*  print  copyright  banner  */ 

networ]c_set_exercise_id  (1) ; 

printf  ("ALERT:  Initial  buffer  transfer  size  is  512  x  512  !!\n"); 
inain_read_pars_file  (PARS_FILE)  ; 


for 

{ 


(i  -  1;  i  <  argc;  i++) 

switch  (argv[i][0]) 

{ 

case  ' : 

switch  (argv[i][l]) 

{ 

case  'a' : 

set_request_receive_size  (atoi(  argv[++i]  ) ) ; 
set_request_send_size  (atoi  (argv[++i])); 
set_assymetric_on  (); 
break; 
case  'A' : 

ammo_enable_autoloader ( ) ; 
break; 
case  ' c'  : 

keyboard_use_cupola  ( ) ; 
break; 
case  'C' ; 

set_cat  c_mode  ( ) ; 

printf  ("using  catc89  HardwareXn") ; 
break; 
case  'd'; 

debug  -  1; 

printf  ("Debugging  is  now  on...\n"); 
break; 
case  ' D' : 

use_static_debug  (1); 

printf  ("debugging  for  static  vehicles  on...\n"); 
break; 
case  'e' : 

network_dont_really_open_up_ethernet  ( ) ; 
break; 
case  'E' : 

network_set_exercise_id  ( (ExerciselD) (atoi (argv[++i] ) ) ) 
break; 
case  'F' : 

cfail_debug_on () ; 
break; 
case  'g': 

cig_not_using_graphics  (); 
break; 
case  'G' : 

guise_override  -  TRUE; 

sscanf  (argv(+-»-i] ,  "%x",  Sguise_to_use) ; 
printf ("ml  using  guise  0x%08x\n",  guise_to_use) ; 
break; 
case  'h' : 
case  ' : 

print_help  (argv ( 0 ] ) ; 
exit  (-1) ; 
case  'k' : 

keyboard_really_use  (); 
break; 


caS6  '  1'  !  - - - 

/*laser_enable_dazzler () ; */ 
printf("no  dazzling  laser  available\n") ; 
exit  (-1) ; 
case  'm'  : 

disable_status_printing { ) ; 
break; 
case  'n' : 

v_pkt_verbose_mode  ( )  ; 
break; 
case  'N' ; 

printf  ("Night  vision  enabled\n") / 
vision_set_otw_night_vision  (); 
break; 
case  'o' ; 

print_overruns  -  TRDt; 

printf  ("Printing  of  overruns  is  now  on...\n"); 
break; 
case  'p' : 

{ 

float  initial_heading;  /*  degrees  */ 

SIMNET_Ml_Status  *status; 

GroundVehicleSubsy stems  *gp; 

OrganizationalUnit  *unit; 
unsigned  int  statusjbits; 

init_activ. reason  -  activateReasonOther; 
init_activ. vehicleClass  -  vehicleClassTank; 

t*  VehiclelD  is  set  at  net_init  time,  so  the 
one  in  the  activate  pkt  is  ignored...  */ 

unit  -  4  init_activ.unit; 
unit->force  -  distinguishedForcelD; 
unit->organizationType  ■  organizationArmy; 


unit->hieratchytO] .unit Type  • 
unit->hierarchy [oj .unitNumber 
unit->hierarchy[l] .unit Type  - 
unit->hierarchy [1] .unitNumber 
unit->hierarchy 12] .unitType  ■ 
unit->hierarchy  [2]  .unitN\unber 
unit->hierarchy [3] .unitType  - 
unit->hierarchy [3] .unitNumber 
unit->hierarchy [4] .unitType  - 
unit->hierarchy [4] .unitNumber 
unit->hierarchy [5] .unitType  ■ 
unit->hierarchy [5] .unitNumber 
unit->hierarchy  [6]  .unitType  «■ 
unit->hierarchy (€] .unitNumber 
unit->hierarchy [7] .unitType  - 
unit->hierarchy  [7]  .unitN\imber 
unit->hierarchy [8] .unitType  « 
unit->hierarchy [8] .unitNumber 


unitTypeArmy; 

-  0; 

unitTypeCorps; 

-  0; 

unitTypeDivision; 

-  0; 

unitTypeBrigade ; 

-  0; 

unitTypeBattalion ; 
-  0; 

unitTypeCompany ; 

“  0; 

unit TypeP lat oon ; 

-  0; 

unitTypeIrrelevant ; 
-  0; 

unitTypeSquad; 

-  0; 


init_activ. marking. characterSet  -  asciiCharacterSet ; 
strcpy  ( ini t_activ. mar king. text,  "AlO") ; 


if  (guise_override) 

{ 

ini t_activ. guises .distinguished  -  guise_to_use; 
init_activ. guises .other  -  guise_to_use; 

] 

else 

( 


init_activ. guises .distinguished  •»  vehicle_US_Ml; 
init__activ .  guises .  other  -  vehicle_US_Ml; 

} 

init_activ.simulatedTime  -  0; 

strcpy  (init_activ . terrain . terrainName , 
get_def  ault_db_naine  { ) )  ; 
init_activ . terrain . terrainVer sion  - 
get_default_db_version  (); 

sscanf  (argv[++i],  fi (init_activ. location [X] )) ; 

sscanf  (argv[++i],  & (init_activ. location [Y] )) ; 

sscanf  (argvi++ii,  "%f",  fiinitial_heading) ; 

printf ("Initializing  tank  6  (%lf,  %lf)  heading  %f\n", 
init_activ. location [X] , 
init_activ. location [Y] , 
initial_heading) ; 

init_activ.battleScheme  -  battleSchemeOther; 
init_activ.onSurface  -  TRUE; 

init_activ. status .vehicleType  -  vehicle_US_Ml; 

/*  brand  spanking  new  */ 

init_activ. status .odometer  -  0;  /*  meters  */ 
init_activ. status .age  -  1;  /*  years  */ 

init__activ .  status .  failures .  category  - 
groundVehicleSubsystems ; 

init_activ. status. f allures. operationalSummary  -  0; 
init_activ.status.failures.mobilitySummary  -  0; 
ini t_activ. St at us. f allures. firepowerSummary  -  0; 
init__activ. status. f allures. communicationSummary  -  0; 
init_activ. status. f allures. noncriticalSummary  -  0; 

gp  -  Sinit_activ. status. failures. subsystems. ground; 

/*  initialize  everything  working  */ 
status_bits  -  0x0; 

BCOPY  ( (char  *)  tstatus_bits, 

(char  *)  tgp  ->  motive  I subsystemExists] , 
sizeof  (MotiveSubsystems) ) ; 

BCOPY  ((char  *)  4status_bits, 

(char  *)  tgp  ->  electronic [subsystemExists] , 
sizeof  (ElectronicS\ibsy stems) ) ; 

BCOPY  ( (char  *)  Cstatusjbits, 

(char  *)  sgp  ->  power [subsystemExists] , 
sizeof  (PowerSubsystems) ) ; 

BCOPY  ((char  *)  Sstatus_bits, 

(char  *)  igp  ->  weapon [subsystemExists] , 
sizeof  (HeaponSubsy stems) ) ; 

BCOPY  ((char  *)  4status_bits, 

(char  *)  &gp  ->  chassis [subsystemExists] , 
sizeof  (ChassisSubsystems) ) ; 

BCOPY  ( (char  *)  *status_bits, 

(char  *)  agp  ->  turret [subsystemExists] , 
sizeof  (TurretSubsystems) ) ; 

8tatus_bits  -  0; 

BCOPY  ( (char  *)  fistatus_bits, 

(char  *)  4gp  ->  motive [subsystemStatus] , 
sizeof  (MotiveSubsystems) ) ; 

BCOPY  ( (char  *)  *status_bits, 

(char  *)  tgp  ->  electronic [subsystemStatus] , 


BCOPY 


sizeox  (t:;xecrr6niCbUJ9!iVSreinun /' 

((char  *)  sstatus_bits, 

(char  *)  tgp  ->  power  [siobsystemStatus] , 
sizeof  (PowerSubsystems) ) ; 

BCOPY  ( (char  *)  4status_bits, 

(char  *)  igp  ->  weapon [subsystemStatus] , 
sizeof  (WeaponSubsy stems) ) ; 

BCOPY  ((char  *)  4status_bits, 

(char  *)  sgp  ->  chassis [subsystemStatus] , 
sizeof  (ChassisSubsystems) ) ; 

BCOPY  ( (char  *)  4status_bits, 

(char  *)  «gp  ->  turret [subsystemStatus] , 
sizeof  (TurretSubsy stems) ) ; 


init_activ. status. specific. category  ■  simnetMlStatus; 
status  "  4init_activ. status. specific. specific. ml; 

status  ->  enginePower  «  1.0; 
status  ->  battery  -  24.0; 
status  ->  frontLeftFuel  -  70.0; 
status  ->  frontRightFuel  -  70.0; 
status  ->  rearFuel  •«  150.0; 

status  ->  apdsReadyAmmo  ■  12; 
status  ->  apdsSemiReadyAmmo  -  11; 
status  ->  apdsHullTurretFloorAmmo  «  6; 
status  ->  heatReadyAmmo  «  10; 
status  ->  heat SemiReady Ammo  -  11; 
status  ->  heatHullTurretFloorAmmo  •  5; 

init_activ .  specific .  t an)c .  hullAz  imuth 
(unsigned  long)  (4294967295  - 
(unsigned  long)  (initial_heading  * 

4294967295.0  /  360.0)); 
init_activ.  specif  ic.tan)c.  turret  Azimuth  -  0; 


initial_activation  •  Sinit_activ; 

brea}c; 

} 

case  : 

rva_turn_debug_on () ; 

print f ("turning  priority  list  debugging  on\n"); 
brea]c; 
case  ' s' : 

sound_dont_use ( ) ; 
brealc; 
case  ' t' ; 

if (  !isalpha(  argv[++i] [0]  )  ) 

{ 

printf ("Cannot  use  invalid  terraindatabaser ;  %s\n", 
argv[i]  ); 
exit (  0  ) ; 

} 

cig_use_database__override_named(  argv[i]  ); 
brea)c; 
case  'T' ; 

if(  !isalpha(  argv(++i]  [0]  )  ) 

{ 

printf ("Cannot  use  invalid  terraindatabaser:  %s\n", 
argv{i]  ); 
exit  (  0  ) ; 

) 

set_ded_name (  argv[i]  ); 


#ifdef  _GT_ 
tendif 


break ; 
case  'v' : 

terrain_verbose_roode_on  ( ) ; 
break; 
case  ' 1' : 

set_cig__dev  (1,  atoi  (argv  [++i] ) ) ; 

his_cif_interface  -  atoi  (argvii]); 

set_cig_niask  (CIG_1); 
break; 
case  ' 2' : 

set_cig_dev  (2,  atoi (argv [++il ) ) ; 
set_cig_mask  {CIG_2); 
break; 
case  ' z' : 

{ 

double  scale; 

sscanf (  argv[++il,  "%lf”,  fiscale) ; 

print f ("Using  vehicle  size  scale  of  %lf\n",  scale  ); 
break; 

) 

default : 

fprintf  (stderr,  "Unknown  switch  \"%s\"\n",  argv[i]) 
break; 

} 

break; 
default : 

fprintf  (stderr,  "unknown  arg  \"%s\" . . . \n",  argvfi]); 
break; 


sim_state_startup ( ) ; 
for  (; ; ) 

siinulation_state_machine  ( ) ; 

) 


/★NOTRE ACHED*/ 
return  (0); 


/*  this  keeps  lint  happy  */ 

/*  Exit  gracefully,  dummy  up  lint.  */ 


void 

reconstitute_vehicle  () 

{ 

process__activate_request (  sinit_activ,  (SimulationAddress  *)0, 
(Transactionidentif ier)  0,  network_get_exercise_id()  ); 


^oid 

'8et_polhentus_f  lag_true  ( ) 


'iF 


^millllipolheinaa^flag  ->  TRUE; 


foid 

at  jpolhenuajf  lag_£alse  ( ) 


polheaius_£lag  -  FALSE; 


/★********★************★***************************************** 


♦ItllZ: 
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#include  "stdio.h" 
♦include  "sim_types .h" 
♦include  "sim_dfns.h" 
♦include  "sim_macros.h" 

♦include  "mass_stdc.h" 
♦include  "dgi^stdg.h” 

♦  include  ”sim__cig_if  .h" 

♦include  "libcig.h" 
♦include  "dtad.h” 
♦include  "libidc.h" 
♦include  •'libidc_dfn.h" 
♦include  "librnemTh” 
♦include  '*libmem_dfn.h" 
♦include  "libnetwork.h" 
♦include  "status. h" 
♦include  "timers.h" 
♦include  "timer s__dfn.h" 

♦include  "ml_ammo.h" 
♦include  "ml~ammo_df .h" 
# include  "ml~animo_mx . h" 
♦include  "ml_ammo_pn.h" 
♦include  "ml_cntrl.h" 
♦include  "ml_ctl_df .h" 
♦include  "ml_cupola.h" 
♦include  "ml_drivjpn.h" 
♦include  "ml_dtrain.h" 
♦include  "ml_gunn_mx.h" 
♦include  "ml_comm_mx . h" 
♦include  "ml_load_mx.h" 
♦include  "ml_hydrsys.h" 
♦include  "ml_idc.h" 
♦include  "ml_pots.h" 
♦include  "ml_repair .h" 
♦include  "ml__status  .h" 
♦include  "ml_thermal.h" 
♦include  "ml_tmrs_df .h" 
♦include  "ml_tracks.h" 
♦include  "ml_turr_pn . h" 
♦include  "ml_turret .h" 
♦include  "ml_vision.h" 

♦include  "mun_type.h" 


♦define  INVERT  DELAY  15 


/*  ammo  rack  internals  */ 

static  int  apds_translations  tN_READY]  •« 

{ 

APDS_RDY04,  AEDS_RDY01, 
APDS_RDY09,  APDS_RDY07,  APDS_RDY05,  APDS_RDY02, 
APDS_RDY10,  APDS_RDY08,  APDS_RDY06,  APDS_RDY03, 
APDS_RDY20,  APDS_RDY17,  APDS_RDY14,  APDS_RDY11, 
APDS_RDY21,  APDS_RDY18,  APDS_RDY15,  APDS_RDY12, 
APDS_RDY22,  APDS_RDY19,  APDS_RDY16,  APDS_RDY13 

}; 


static  int  heat_translations  [N_READY]  - 

{ 

HEAT_RDY04,  HEAT_RDY01, 
HEAT_RDY09,  HEAT_RDY07,  HEAT_RDY05,  HEAT_RDY02, 
HEAT_RDY10,  HEAT_RDY08,  HEAT_RDY06,  HEAT_RDY03, 
HEAT_RI/Y20,  HEAT_RDY17,  HEAT_RDY14,  HEAT_RDY11, 
HEAT_RDY21,  HEAT_RDY18,  HEAT_RDY15,  HEAT_RDY12, 
HEAT_RDY22,  HEAT_RDY19,  HEAT_RDY16,  HEAT_RDY13 

}; 


static  int  select_translations  (N_READY]  - 

{ 

ASELECT04,  ASELECTOl, 
ASELECT09,  ASELECT07,  ASELECT05,  ASELECT02, 
ASFLECTIO,  ASELECT08,  ASELECT06,  ASELECT03, 
ASELECT20,  ASELECT17,  ASELECT14,  ASELECTll, 
ASELECT21,  ASELECT18,  ASELECT15,  ASELECT12, 
ASELECT22,  ASELECT19,  ASELECT16,  ASELECT13 

}; 


Static  int  turret_ref_translations  [TURRET  REF_NUM_SECTORS ]  = 

{ 

TURRET_TO_HULL_030,  TURRET_TO_HULL_060,  TURRET_TO_HULL_0 9 0 , 
TURRET_TO_HaLL_120,  TURRET_TO_HULL_150,  TURRET_TO_HULL_180, 
TURRET_TO_HULL_210,  TURRET_TO_HULL_240,  TURRET_TO_HULL_270, 
TURRET_TO_HULL_3 0  0 ,  TURRET_TO_HDLL_33 0 ,  TURRET_TO_HULL_3  6  0 

}; 


Static  REAL 
static  RFAL 
static  REAL 
static  int 
static  int 
static  int 
static  char 
static  char 
static  char 
static  char 
static  char 
static  int 
static  char 
static  int 
static  char 
static  char 
static  char 
static  char 

^j^atic  BOOLEAN  «singjpoIhenn]S  *  TALSE;  /*  added  for  polhemus 


real_service_brake_val; 
r eal_comm_weap_va 1 ; 
real_load_j)eri_val; 
hex__service_brake_val  ; 
hex_coinm_weap_val ; 
hex_load_peri_val ; 
gps_mag_val ; 
breech_ready ; 
e  ject ion_guard_val ; 
ammo_transfer_status; 
grid_azimuth_8tatus ; 
f uel_f lash_count ; 
fuel_flash_status; 
odometer_timer_number ; 
cupola_up_down_val ; 
binocular s_on_off_val ; 
lpscope_up_down_val ; 
thermal  shutter  val; 


/*  integration 
July  2,  1991 
Altman  (1ST) 
./*  see  note  below 

/*  no  power  routines  */ 

static  void  controls_parking_brake_check  {) ; 

static  void  controls_service_brake_check  (); 

static  void  controls_inag_check  ( )  ; 

static  void  controls_e jection_guard_check  (); 

static  void  controls_breech_check  (); 

static  void  controls_breech_unload_check  (); 

static  void  controls_breech_ready_check  ( ) ; 

static  void  controls_ammo_transfer_check  {); 

static  void  controls_knee_switch_check  {); 

static  void  controls_animo_tube_check  () ; 

static  void  controls_conimander_weapon__station_check  {); 

static  void  controls_loader_periscope__check  (); 

static  void  controls_grid_azimuth_check  {); 

static  void  controls_fuel_f lash_check  (); 

static  void  controls_odometer_check  (); 

static  void  controls_cupola_up_down_check  (); 

static  void  controls_binoculars_on_off_check  (); 

static  void  controls_lpscope_up_down_check  (); 

static  void  controls_thcrinal_shutter_check  (); 

/*  init  routines  */ 

static  void  controls_service_brake_init  (); 

static  void  controls_inag_init  (); 

static  void  controls_e jection_guard_init  (); 

static  void  controls_animo_transfer_init  (); 

static  void  controls_cornmander_weapon__station_init  {); 

static  void  controls__loader_periscope~init  (); 

static  void  control s~cupola_up_down_init  (); 

static  void  controls_binoculars_on_off_init  (); 

static  void  controls_lpscope_up_down_init  (); 

static  void  controls  thermal  shutter  init  (); 


static  void  controls_transfer_seini_heat  {); 

static  void  controls_transfer_semi_apds  (); 

static  void  controls_transfer_hull_heat  (); 

static  void  controls_transf er_hull_apds  (); 

static  void  controls_transf er_no_transf er  (); 

static  void  control s_transfer_redist_send  (); 

static  void  controls_transfer_redist_recv  (); 

static  void  controls_service_brake_exit  (); 

static  void  controls_odometer_exit  {); 

static  void  controls_cupola_up_down_exit  (); 

static  void  control s_binoculars_on_off_exit  (); 

static  void  controls_lpscope_up_down_exit  (); 

static  void  controls_f uel_f lash  (); 

static  void  controls_fuel_unflash  (); 

static  void  controls  fuel  restore  {); 


*/ 

*/ 

*/ 

*/ 


f* 

/* 

/* 

/* 

t/* 

/* 


'The  uslng_polhemus  flag  and  these  two  routines  to^ltehlp'alate  It  ■*/ 
were  added  to  prevent  a  read  of  the  TC' s  cupola  pot  while  the  */ 

polhemus  is  active.  If  the  cupola  pot  is  also  read  while  the  */ 

polhemus  is  active,  there  is  an  oscillation  as  the  polhemus  and  */ 
the  pot  fight  over  the  'correct'  value.  */ 

'*/ 

July  2,  1991  -  M  Altman  (1ST)  .  */ 

—  —  —  —  —  — — - -  - - f 


^oid  controls__set__using_polheinus__true  {)  { 
H  n«ioq  poiEeauB  “  TRUE;  ~ 

Broid  control8__8et_using_polheinus__£alse  ( )  { 
using_polhexitus  “  FALSE;  ~ 

j^/* - - - - 


void  controls_npc_init  () 

( 

real__8ervice_braJce__val  -  0.0; 
real~cotnm_weap_val  -  0.0; 
real~load_peri~val  -  0.0; 
hex_service_brake_val  -  0; 
hex”conun_weap_val  -  0; 
hex__loadjperi_val  «  0; 
gps_roag_yal  -  GN_3X_VAL; 
breech_ready  -  OFF; 
e jection_gTaard_val  -  OFF; 
atnmo_transfer_status  •  NO_TRANSFER_VAL; 
grid_aziinuth_status  -  OFF; 
fuel_£lash__count  ■  0; 
fuel__flash__status  -  OFF; 

odometer_timer_nuinber  -  timer s_set_null_tiiner  ( )  ; 
cupola_up_down_val  -  CM_CENTER_VAL; 
binocularE_on_off_val  -"OFF; 
lpScope_up~down__val  -  LD__CENTER_VAL; 

control s_service_brake_init  <); 
control s3Kag_init  ();  ~ 
controls~e  jection__guard_init  () ; 
controls__animo__trans£er__init  (); 
controls__cornma^nder_weapon_station_init  ()  ; 
controls~loader_periscope__init  () ; 
controls__cupola_up__down_init  () ; 
controls_binoculars_on_of f_init  () ; 
controls_lpscope_up_down_init  () ; 
controls  thermal  shutter  init  {) ; 


void  controls_no_power__routines  () 
i 

controls_parking__brake__check  () ; 
controls_service__brake_check  <) ; 
controls_niag_check  {); 
controls_e jection_guard_check  () ; 
controls_breech_check  (T; 
controls_breech_unload__check  () ; 
controls_breech_ready_check  ( ) ; 
controls_ammo_transfer_check  (); 
controls_knee__switch_check  (); 
controls_ammo_tube_check  (); 
controls_coinmander_weapon__station_check  ()  ; 
controls_loader_periscope~check  <) ; 
controls_grid_azimuth_check  ( ) ; 
controls_fuel_flash_check  (); 
control8_odometer__check  (); 
control8_cupola__up__down_check  () ; 
controlsJbinoculars_on_off__check  () ; 
controls_lpscope_up~down_check  () ; 
controls  thermal  shutter~'check  (); 


} 


static  void  controls_parking_brake_check  {) 


if  (idc_values  [DR_P_BRAKE_SET] ) 

{ 

idc_values  [DR_P_BRAKE_SET]  -  OFF; 
if  (hydraulic_parking_brake_on_request  ()) 
{ 

drivetrain_set_parking_brake  (); 
controls_set_parking_brake  {); 

} 

} 

if  (idc_values  IDR_P_BRAKE_RELEASE] ) 

{ 

idc_values  [DR_P_BRAKE_RELEASE]  -  OFF; 
drivetrain_release__parking_brake  ( )  ; 
controls_release_parking_brake  () ; 

1 


static  void  control s_service_brake_check  () 

{ 

int  temp; 

if  < (temp  -  potval (DR_S_BRAKE) )  !■  hex_service_brake_val) 

{ 

real_service_brake__val  - 

pots_service_brake_real  (hex_service_brake_val  «  temp) ; 
drivetrain_set__service_brake  (real_service_brake_val) ; 

} 

} 


static  void  controls_service_brake_init  () 

{ 

hex_service_brake_val  ••  potval  (DR_S_BRAKE) ; 

real_service_brake_val  pots_service_brake_real  {hex_service_brake_val) 
drivetrain_set_service_brake  (real_service_brake_val) ; 

} 


static  void  controls_service_brake_exit  () 

{ 

dr i vet r ain_set_service_brake  (0.0); 

) 


static  void  control s_niag_check  () 

{ 

char  teinp_3x,  temp__10x; 

temp_3x  “  idc_values  [GN_GPS_MAG_3X) ; 
temp_10x  “  idc_values  (GN_GPS_MAG_10X] ; 

if  (thennal_view_on  () ) 

{ 

return; 

} 


if  ( (temp_3x)  && 

(gps_inag_val  !*  GN_3X_VAL)  && 
(!  teinp_10x) ) 

{ 

gps_mag_val  -  GN_3X_VAL; 
cig_gps_mag_3x  () ; 

} 

else  if  ( (temp_10x)  && 

(gps_mag_val  !-  GN_10X_VAL)  && 
( !  ten5>_3x) ) 

{ 

gps_mag_val  -  GN_10X_VAL; 
cig_gps_mag_10x  (); 

} 

} 


static  void  controls_inag_init  () 

{ 

char  temp_3x,  temp_10x; 

temp_3x  -  idc_values  [GN_GPS_MAG_3X1 ; 
teinp_10x  -  idc_values  iGN_GPS_MAG_10X] ; 

if  ( (temp_3x)  && 

(!  temp_10x) ) 

{ 

printf ("mag_init :  Initialize  to  Low  MAG  ******************\n") 
gps_mag_val  -  GN_3X_VAL; 
cig_gps_mag_3x  (); 

) 

else  if  ( {temp_10x)  && 

( !  temp  3x) ) 

{ 

printf {”mag_init :  Initialize  to  Hi  MAG  ★*****************\n”) ; 
gpsjmag_val  -  GN_10X_VAL; 
c ig_gps_mag_l Ox  ( ) ; 

} 

else 

{ 

printf ("mag_init:  Mag  switch  in  weird  state  **********\n") ; 

} 

) 

char  get_non_thermal_mag ( ) 
return  (gps_inag_val) ; 

} 


static  void  controls_ejection_guard_check  {) 

{ 

char  temp; 

if  {(temp  -  idc_values  [LD_EJECTION_GOARD] )  !“  e jection_guard_val) 
{ 

switch  (eject ion_guard_val  -  ten^) 

{ 

case  ON: 

an«no_e jection_guard_armed  (); 
controls_ejection_guard_armed  () ; 
break ; 


case  OFF: 

ainmo_e  jection_guard_safe  () ; 
controls_e jection_guard_safe  (); 
break; 
default : 

fprintf  (stderr,  "CONTROLS:  controls_ejection_guard_check:  impossib 
nprintf  ("CONTROLS:  controls_e j€ction_guard_check :  impossible  eject 
break; 

1 

} 

} 


static  void  controls_ejection_guard_init  () 

{ 

switch  (e jection_guard_val  -  idc_values  [LD_EJECTION_GUARD] ) 

{ 

case  ON: 

ainmo_e jection_guard_anned  (); 
controls_e jection_guard_armed  (); 
break; 
case  OFF: 

ammo_e jection_guard_safe  () ; 
controls_e jection_guard_safe  () ; 
break; 
default : 

fprintf  (stderr,  "CONTROLS:  controls_e jection_guard_init :  impossible  ej’ 
nprintf  ("CONTROLS:  controls_e jection_guard_init :  impossible  ejection  g 
break; 

} 

} 


static  void  controls__breech_check  () 

{ 

if  (idc_values  [LD_SHELL_LOADED_PB] ) 

{ 

ammo_breech_pushed  (); 

idc_values  [LD_SHELL_LOADED_PB]  -  OFF; 

} 

} 


static  void  controls_breech  unload_check  () 

{ 

if  (idc_values  [LD_UNLOAD_BREECH_PB] ) 

{ 

animo_breech_unload_jpushed  (); 
idc_values  [LD_UNLOAD_BREECH_PBJ  -  OFF; 

) 

) 


static  void  controls_knee_switch_check  () 

{ 

switch  (idc_values  tLD_KNEE_S WITCH] ) 

{ 


case  ON: 

ai«no_knee_8witch_on  (); 
break; 
case  OFF: 

ainmo_knee  switch  off  (); 


break; 
default : 

fprintf  (stderr,  "CONTROLS:  controls_knee_switch_check:  Impossible  knee 
nprintf  ("CONTROLS:  controls_knee_switch_check:  Impossible  knee  switch 
break; 

} 

} 


void  controls_e jection_guard_armed  () 

{ 

idc_output_set_cond  ( ( (controls_power_status  ( )  — 

CONTROLS_STATE_TURRET_POWER_ON)  && 
(controls_electsys_status  ())  && 

( !  controls_failure_status  () ) ) , 
LD_MAIN_ARMED_L,  OUTPUT_ON) ; 

idc_output_set_cond  (!  controls_commander_panel_status  (), 

LD  MAIN  SAFE  L,  OUTPUT  OFF) ; 


} 


void  controls_e jection_guard_safe  () 

( 

idc_output_set_cond  (J  controls_commander_panel_status  (), 

LD_MAIN_ARMED_L,  OUTPUT_OFF) ; 
idc_output_set_cond  ( { (controls_power_status  {)  — 

CONTROLS_STATE_TURRET_POWER_ON)  && 
{controls_electsys_status  ())  && 

(!  controls_failure_status  ())), 
LD_MAIN_SAFE_L,  OUTPUT_ON) ; 

} 


void  controls_set_parking_brake  ( ) 

{ 

if  (!  idc_values  [DR_BRAKE  L] ) 

{ 

idc_output_set_cond  ( ( (controls_power_status  () 

CONTROLS_STATE_NO_POWER)  && 
(controls_electsys_status  ())  && 
( J  controls_failure_status  ( ) ) ) , 
DR_BRAKE_L,  OUTPUT_ON) ; 

idc_output_set_cond  ( ( (controls_power_status  ()  !- 

CONTROLS_STATE_NO_POWER )  &  & 
(controls_electsys_status  ())  6& 
( !  controls_failure_status  () ) ) , 
DR_MASTER_WARNING_L,  OUTPUT_ON) ; 

} 

} 


void  controls_release_parking_brake  () 

{ 

if  (idc_values  (DR__BRAKE_L] ) 

{ 

idc_output__set__cond  ( !  controls_driver_panel_status  ( ) , 

DR_BRAKE_L,  OUTPUT_OFF) ; 
controls_warning_lainp_of f_check  ()  ; 

} 

) 


static  void  controls_breech_ready_check  () 

{ 

char  teiq>; 

if  ( (ten^}  “  animo__breech_ready  ())  !-  breech_ready) 

{ 

switch  (breech_ready  ■■  tenp) 

{ 

case  ON: 

idc_output_set_cond  (!  controls_failure_status  (), 

LD_BREECH_READY_L,  OUTPUT_ON) ; 

break; 
case  OFF: 

idc__output_set_cond  (!  controls_coininander_panel_status  {), 

LD_BREECH_READy_L,  ODTPUT_OFF) ; 

break; 
default : 

fprintf  (stderr,  "CONTROLS:  controls_breech_ready_check :  Impossible 
nprintf  ("CONTROLS:  controls_breech_ready_check:  Impossible  breech_ 
break; 

} 

} 

) 


static  void  controls_ainmo_transfer_check  () 

{ 

char  teinp_semi_heat,  temp_semi_apds,  temp_hull_heat,  temp_hull_apds; 
char  teit?)_redist__send,  temp_redist_recv; 


temp_semi_heat 
temp_semi_apds  ■ 
t  emp_hu 1 l_heat 
temp_hull_apds  ■ 
t  emp_r  edi st_s  end 
temp_redist_recv 


'  idc_values 
idc__values 
'  idc_values 
idc__values 
'  idc_values 
'  idc  values 


[SEMI_HEAT] ; 
[SEMI_APDS3; 

(HaLL_HEAT] ; 
(HULL_APDS3; 
(REDIST__SEND]  ; 
[REDIST  RECV] ; 


if  ( (ten53_semi_heat )  && 

(aituno_transfer_3tatus  I-  SEMI_HEAT_VAL)  && 
(!  temp_senii_apds)  && 

(!  temp_hull_heat)  && 

(!  temp_hull_apds )  && 

( !  temp_redist_send)  && 

( !  temp_redist_recv) ) 

{ 

controls_transfer_seini_heat  (); 
anmo_transfer_semi_heat  (); 
ainroo_transfer_status  -  SEMI_HEAT_VAL; 

} 


else  if  ( (temp_semi_apds)  && 

(ainmo_transfer_status  !-  SEMI_APDS_VAL)  && 
(  !  teit5)_semi_heat)  £& 

(!  ten5>_hull_heat)  && 

(!  ten:?>_hull_apds)  && 

(!  teinp_redist_send)  && 

( !  ten5>_redist_recv) ) 

{ 

controls_transfer_semi_apds  (); 
anTCo_transfer_semi_apds  (); 
anmo_transfer_status  -  SEMI_APDS_VAL; 

) 

else  if  ( (t€mp_hull_heat) 

(anHno__transfer_status  !-  HULL_HEAT_VAL)  && 
(!  tenb  semi  heat)  fifi 


(!  temp_semi_apds )  && 

(!  ten?3_hull_apds ) 

( !  teinp_redist_send)  && 

( !  temp_redist_recv) ) 

{ 

controls__transfer_hull_heat  (); 
animo_transfer_hull_heat  (); 
ainmo_transfer_status  -  HULL_HEAT_VAL; 

) 

else  if  ( (temp_hull_apds)  && 

<anuno_transfer_status  !-  HULL_APDS_VAL)  && 

(!  temp_semi_heat )  && 

(!  ten5>__senii_apds )  && 

(!  teinp__hull_heat)  && 

(!  tenqp_redist_send)  && 

( !  tenip_redist_recv) ) 

{ 

controls_transf er_hull_apds  ( ) ; 
ainmo_transfer_hull_apds  (); 
ainnio_transfer_status  -  HULL_APDS_VAL; 

} 

else  if  ((!  teinp_semi_heat)  && 

{anmo_transfer_status  !-  NO_TRANSrER_VAL)  && 
(!  temp_semi_apds )  && 

(!  temp_hull_heat )  && 

{!  teinp_hull_apds)  && 

(!  tenTp_redist_send)  && 

(!  teinp_redist_recv) ) 

{ 

controls_transf er_no_transf er  {) ; 
ainmo_transfer_no_transfer  (); 
animo_transfer_status  -  NO_TRANSFER_VAL; 

} 

else  if  ( (temp__redist_send)  && 

(ainmo_transfer_status  !-  REDIST_SEND_VAL)  && 
(!  temp_semi_heat)  && 

(!  tenip_serai_apds )  44 
(!  teinp_hull_heat)  44 
(!  temp_hull_apds)  44 
( !  temp_redist_recv) ) 

{ 

controls_transfer_redist_send  ()  ; 
aunmo_transf  er_redist_send  ( )  ; 
ajnmo_transfer_status  -  REDIST_SEND_VAL; 

} 

else  if  ( (temp_redist_recv)  44 

(ainmo_transfer_status  !-  REDIST_RECV_VAL)  44 
(!  teinp_seini_heat )  44 
(!  tenqp__semi_apds )  44 
(!  teinp_hull_heat )  44 
(!  teinp~hull_apds )  44 
( !  temp_redist_send) ) 

{ 

controls_transfer_redist_recv  () ; 
anmo_transfer_redist_recv  (); 
ainmo_transfer_status  -  REDIST_RECV_VAL; 

} 

) 


static  void  controls  ammo  transfer  init  () 


{ 


if  (idc_values  [SEMI_HEAT]) 

{ 

controls_transfer_semi_heat  (); 
ainmo_transf er_s€ani_heat  (); 
ainmo_transfer_status  -  SEMI_HEAT__VAL; 

} 

else  if  (idc_values  [SEMI_APDS]) 

{ 

controls_transfer_semi_apds  (); 
animo_transfer_semi_apds  (); 
animo_transfer_status  -  SEMI_APDS_VAL; 

> 

else  if  (idc_values  [HULL_HEAT]) 

{ 

controls_transfer_hull_heat  (); 
animo_transf er_hull_heat  ( ) ; 
aimo_transfer_3tatvs  -  HDLL__HEAT__VAL; 

} 

else  if  (idc_values  [HOLL_APDS]) 

{ 

controls_transfer_hull_apds  (); 
aunmo_t  r  an  s  f  er_hul  l_apds  ( )  ; 
emimo_transfer_status  -  HULL_APDS__VAL; 

} 

else  if  (idc_values  [REDIST_SEND] ) 

{ 

controls_transfer__redist_send  () ; 
animo_transf er_redTst__send  ( )  / 
ainmo_transfe:>:_status  -  REDIST_SEND_VAL; 

} 

else  if  {idc_values  [REDIST_RECV] ) 

{ 

controls_transfer_redist_recv  () ; 
ainmo_transfer_redist_recv  (); 
ainino_transf er_status  -  REDIST_RECy_VAL; 

1 

else 

{ 

controls_transfer_no_transfer  () ; 
aiiiino_transfer_no_transfer  (); 
ainmo_transfer_status  -  NO_TRANSFER_VAL; 

} 


static  void  controls_transfer_semi_heat  () 

{ 

idc__output_set  cond  (!  controls_conBnander_panel_status  (), 
~  HULL_HEAT_L,  OUTPUT_OFF) ; 
idc_output_set_cond  (!  controls  conimander_panel_status  (), 

HULL_APDS__L,'"ODTPUT_OFF'  ; 

idc_output_set_cond  (!  controls_coininander_panel_status  (), 

SEMI_APDS_L,  OaTPUT_OFF) ; 

idc_output_set_cond  {!  controls_commander_panel_status  (), 

REDIST_SEND_L,  ODTPUT_OFF) ; 

idc_output_set_cond  {!  controls  conttnander_panel_status  (), 

REDIST_RECV_L,  OUTPUT_OFF) ; 
if  {(ainmo_get  quantity  (SEMI_HEAT_VAL)  >  0)  £& 

(idc  values  [SEMI  HEAT  L]  !-  ON)) 


{ 


} 


idc_output_set_cond  (!  controls_^failure_status  (), 

SEMI  HEAT  L,  OOTPUT  ON) ; 


static  void  controls_transfer_senii_apds  () 

{ 

idc_output_set_cond  (!  controls_coinmander_panel_status  {), 

HULL_HEAT_L,  OUTPUT_OFF) ; 

idc_output_set_cond  { !  controls_coininander_jpanel_status  ( ) , 

HULL_APDS_L,  OUTPDT_OFF) ; 

idc_output_set_cond  ( !  controls__coininander_panel_status  ( ) , 

SEMI_HEAT_L,  ODTPUT_OFF) ; 

idc_output_set_cond  (!  controls_coininander_panel_status  (), 

REDIST_SEND_L,  OOTPOT_OFF) ; 

idc_output_set_cond  (!  controls_coininander_panel_status  (), 

REDIST_RECV_L,  OUTPUT_OFF) ; 
if  ( (ainmo__get_quantity  {SEMI_APDS_VAL)  >0)  4& 

(idc_values  [SEMI_APDS_L]  ON)) 

{ 

idc_output_set_cond  ( !  controls_failure_status  ( ) , 

SE11I_APDS_L,  OUTPUT_ON)  ; 

} 

} 


static  void  controls_transf er_hull_heat  () 

idc_output_set  cond  ( !  controls_coimnander jpanel_status  ( ) , 
-  HULL_APDS_L,  OUTPDT__OFF)  } 
idc_output_set_cond  (!  controls^coitunander_panel_status  (), 

SEMI_HEAT_L,  OUTPUT_OFF) ; 

idc_output_set_cond  (!  controls_coinmander_panel_status  (), 

SEMI_APDS_L,  OUTPUT_OFF) ; 

idc_output_set_cond  (!  controls_coininander_panel_status  {), 

REDIST_SEND_L,  OUTPUT_OFF) ; 

idc_output_set_cond  (!  controls_coinmander_panel_status  (), 

REDIST_RECV_L,  OUTPUT_OFF) ; 
if  ( (ainmo_get_quantity  (HULL_HEAT_VAL)  >0) 

(idc_values  (HULL_HEAT_L]  !-  ON)) 

{ 

idc_output_set_cond  ( !  controls^f ailure_status  ( ) , 

HULL_HEAT_L,  OUTPUT_ON) ; 

} 

) 


static  void  controls_transfer_hull_apds  () 

{ 

idc_output_set_cond  (!  controls_coinmander_panel_status  (), 

HULL_HEAT_L,  OUTPUT_OFF) ; 

idc_output_set_cond  (!  controls_coinznander_panel_status  (), 

SEMI_HEAT_L,  OUTPOT__OFF)  ; 

idc_output_set_cond  (!  control3_coinmander_panel_status  () , 

SEMI_APDS_L,  OUTPUT_OFF) ; 

idc_output_set_cond  (!  controls_connnander_panel_status  (), 

REDIST_SEND_L,  OUTPUT_OFF) ; 

idc_output_set_cond  (!  controls_connnander_panel_status  (), 

REDIST_RECV_L,  OOTPaT_OFF) ; 
if  ( (aniino_get_quantity  (HULL_APDS_VAL)  >  0)  44 
(idc_values  (HULL  APDS  Ll  !-  ON)) 


{ 


) 


idc_output_set_conci  ( !  controls_failure_status  ( ) , 

HULL_APDS_L,  OUTPUT  ON) ; 


static  void  control s_transfer_no_transfer  () 

idc_output_set_cond  (!  controls_conunander_panel_status  (), 

HULL_HEAT_L,  OUTPOT_OFF) ; 

idc_output_set_cond  (!  controls_conttnander_panel_status  (), 

HULL_APDS_L,  OUTPUT_OFF) ; 

idc_output__set_cond  (!  controls_coininander_panel_status  (), 

SEMI_HEAT_L,  OUTPUT_OFF) ; 

idc_output_set_cond  (!  controls_coinmander_panel_status  {), 

SEMI_APDS_L,  OUTPUT_OFF) ; 

idc_output_set_cond  (!  controls_coinmander_panel_status  (), 

REDIST_SEND_L,  OUTPUT_OFF) ; 

idc_output_set_cond  (!  controls_conBnander__panel_status  (), 

RED I ST  RECV  L,  OUTPUT  OFF) ; 


} 


static  void  controls_transfer_redist_send  () 
{ 


) 


idc_output_set_cond  (!  controls_conixnander_panel_status  ()  , 

HULL_HEAT_L,  ODTPOT_OFF) ; 

idc_output_set_cond  (!  controls_conimander_panel_status  (), 

HULL_APDS_L,  OUTPUT^OFF) ; 

idc_output_set_cond  (!  controls  coinmander_panel_status  (), 

SEMI_HEAT_L,~OUTPUT_OFF) ; 

idc_output_set_cond  (!  controls_conunanderjpanel_status  (), 

SEMI__APDS_L,  OUTPUT_OFF)  ; 

idc_output_set_cond  (!  controls  conHnander_panel_status  (), 

REDIST_RECV_L,  OUTPUT_OFF) ; 

idc_output_set_cond  ( !  controls_failure_status  { ) , 

REDIST_SEND  L,  OUTPUT  ON) ; 


static  void  controls_transfer_redist_recv  () 

idc_output_set_cond  (!  controls_coinmander_panel_status  (), 

HULL_HEAT_L,  OUTPUT_OFF) ; 

idc_output_set_cond  (!  controls_coinmander_panel_status  {)  , 

HULL_APDS_L,  OUTPUT_OFF) ; 

idc_output_set_cond  (!  controls_coinmander_panel_status  (), 

SEMI_HEAT_L,  OUTPUT_OFF)  ; 

idc_output_set_cond  (!  controls_conimander_panel_status  (), 

SEMI_APDS_L,  ODTPDT_OFF) ; 

idc_output_set_cond  (!  controls_coininander_panel_status  (), 

REDIST_SEND_L,  OUTPUT_OFF) ; 

idc_output_set_cond  (!  controls_failure_status  (), 

RED I ST  RECV  L,  OUTPUT  ON) ; 


} 


void  controls_resupply_empty  (status) 
register  int  status; 

{ 

switch  (status) 

{ 


} 


case  HULL_HEAT_VAL; 

idc_output_set_cond  ( !  controls_coniinander_panel_status  ( )  , 

HDLL_HEAT_L,  ODTPUT_OFF) ; 

break; 

case  HULL_APDS_VAL; 

idc_output_set_cond  (!  controls_coininander_panel_status  () , 

HULL_APDS_L,  OUTPDT_OFF) ; 

break; 


case  SEMI_HEAT_VAL: 

idc_output_set_cond  (!  controls_conmiander_panel_status  () , 

SEMI  HEAT  L,  OUTPUT  OFF) ; 


break; 


case  SEMI_APDS_VAL : 

idc_output_set_cond  (!  controls_coniinander_panel_status  (), 

SEMI_APDS_L,  OUTPUT_OFF) ; 

break; 
default : 

fprintf  (stderr,  "CONTROLS:  controls_resupply_einpty :  Impossible  statusX 
nprintf  ("CONTROLS:  controls_resupply_enipty :  Impossible  status\n"); 
break; 


static  void  controls_ammo_tube_check  () 
{ 

register  int  i; 

register  int  retval; 


} 


retval  -  NULL__SLOT;  /*  no  tube  selected  */ 

for  (i  -  0;  i  <  N_READY;  i++)  /*  find  one  selected  */ 

{ 

if  (idc_values  [select_translations  [il]) 

{ 

retval  -  i; 

idc_values  [select_translations  [i]]  OFF; 

} 

} 

if  (retval  I-  NULL_SL0T)  /*  return  selected  -  offset  */ 

ammo  tube  selected  (retval) ; 


void  controls_show_round  (slot,  contents) 
int  slot; 

ObjectType  contents; 

{ 

if  (slot  —  NULL_SLOT) 
return; 

if  (contents  —  munition_US_M456Al) 

idc_output_set_cond  (!  controls_failure_status  (), 

heat  translations  [slot],  OUTPUT  ON); 


) 


if  (contents  “  munition_US_M392A2) 

idc_output_set_cond  (!  controls_failure_status  (), 

apds_translations  [slot],  OUTPUT_ON) ; 


void  controls^unshow_round  (slot,  contents) 
int  slot;  ^ 

ObjectType  contents; 

( 

if  (slot  NULL_SLOT) 
return;  ~ 


} 


if  (contents  —  munition_US_M456M) 

idc_output_set_cond  ( !  controls_coniinander_panel_status  () , 

heat_translations  [slot],  OUTPUTjOFF); 

if  (contents  —  munition_DS_M392A2) 

idc_output_set_cond  (!  controls_coinmander_panel_status  (), 

apds_translations  [slot],  OUTPUT  OFF); 


static  void  controls_conimander_weapon_station  checlc  () 

{ 

int  temp; 

if ( (temp  -  ain(TC_CH))  —  -1) 

{ 

Dtad_Failed ( ) ; 
return; 

} 

if  ( !using_polhemus)  {  /*  see  polhemus  note  above  */ 

if  ((temp  >  hex_comm_weap_val  +  DTAD_HYSTERES1S)  || 

(temp  <  hex_comm  weap  val  -  DTAD  HYSTERESIS)) 

{ 

teal_comm_weap_val  pots_comm_weap_real  (hex_comm_weap_val  ••  temp) 
cupola_cws_new_value  (real  comm  weap  val) ; 

}  -  _  _ 

} 

} 


static  void  controls_coinmander_weapon  station  init  () 

{ 

if ( (hex_comm_weap_val  -  ain(TC  CH))  —  -1) 

{ 

hex_comm_weap_val  -  0; 

Dtad_Failed() ; 
return; 

} 

real_comm_weap_val  -  pots_comm_weap_real  (hex_comm_weap_val) ; 
cupola_cws_new_value  (real_comm_weap  val) ; 

} 


static  void  controls_loader_j)eriscope_check  () 
int  temp; 

if ((temp  -  ain(LD_CH))  —  -1) 

{ 

Dtad_Failed() ; 
return; 


if  ((temp  >  hex_load_peri_val  +  DTAD_HYSTERESIS)  || 

(ten^  <  hex_load_peri_val  -  DTAD__HYSTERESIS) ) 

{ 

real_load_jperi_val  -  pots_load_peri_real  (iiex_load_jperi_val  ^  temp) 
cupola_lpscope_new_value  (real_load_peri_val) ; 

} 

} 


static  void  controls_loader_periscope_init  () 

{ 

if ( (hex_load_peri_val  -  ain(LD_CH))  -1) 

{ 

hex_load_jperi_val  -  0; 

Dtad_Failed ( ) ; 
return; 

} 

real_loadjperi_val  -  pots_load_peri_real  (hex_load_peri_val) ; 
cupola_lpscope_new_value  (real_load_peri_val) ; 

} 


void  controls_resupply_flash  (slot,  transfer_status,  resupply_location) 
int  slot; 

char  transfer_status,  resupply_location; 

{ 

switch  (transfer_status) 

{ 

case  HULL_HEAT__VAL: 

if  (slot  !-  NULL_SLOT) 

{ 

idc_output_set  ns  (heat_translations  [slot],  0UTPUT_0N) ; 

} 

idc_output_set_ns  (HULL_HEAT__L,  OUTPUT_ON)  ; 
break; 

case  HULL_APDS_VAL: 

if  (slot  !-  NULL_SLOT) 

( 

idc_output_set_ns  (apds_translations  [slot],  OUTPUT_ON) ; 

} 

idc_output_set_ns  (HULL_APDS_L,  OUTPUT_ON) ; 
break; 

case  SEMI_HEAT_VAL: 

if  (slot  !-  NULL_SL0T) 

{ 

idc_output_set_ns  (heat_translations  [slot],  OUTPUT_ON) ; 

} 

idc_output_set_ns  (SEMI_HEAT_L,  OaTPUT_ON) ; 
break; 

case  SEMI_APDS_VAL: 

if  (slot  !-  NULL_SL0T) 

{ 

idc_output_set_ns  (apds  translations  [slot],  OUTPUT_ON) ; 

> 

idc_output_set_ns  (SEMI_APDS_L,  ODTPDT_ON) ; 
break; 

case  REDIST_SEND_VAL: 

idc_OUtput_set_ns  (REDIST_SEND_L,  OUTPUT_ON) ; 
break; 

case  REDIST_RECV_VAL; 

switch  (resupply_location) 

( 

case  HULL  HEAT  VAL: 


idc_output_set_ns  {HULL_HEAT_L,  OUTPUT_ON) ; 
idc_output_set_ns  (REDIST_RECV_L,  OUTPUT_ON)  ; 
break; 

case  HULL_APDS_VAL: 

idc_output_set_ns  {HULL_APDS_L,  OUTPUT_ON) ; 
idc_output_set_ns  (REDIST_RECV_L,  OUTPUT_ON); 
break; 

case  SEMI_HEAT_VAL: 

idc_output_set_ns  {SEMI_HEAT_L,  OUTPUT_ON) ; 
idc_output_set_ns  (REDIST_RECV_L,  OUTPUT_ON) ; 
break; 

case  SEMI_APDS_VAL: 

idc_output_set_ns  (SEMI_APDS_L,  ODTPDT_ON) ; 
idC_output_set_ns  {REDIST_RECV_L,  OUTPDT_ON)  ; 
break; 

case  READY_HEAT_VAL: 

if  (slot  !-  NULL_SLOT) 

{ 

idc_output_set_ns  (heat_translations  [slot],  OUTPUT_ON) ; 

} 

idc_output_set_ns  {REDIST_RECV_L,  ODTPDT_ON) ; 
break; 

case  READY_APDS_VAL: 

if  (slot  !-  NULL_SLOT) 

{ 

idc_output_set_ns  (apds_translations  [slot] ,  OUTPUT_ON) ; 

} 

idc_output_set_ns  (REDIST_RECV_L,  ODTPUT_ON) ; 
break; 
default : 

fprintf  (stderr,  "CONTROLS:  control s__resupply_f lash :  Impossible 
nprintf  ("CONTROLS;  controls_resupply_flash:  Impossible  resuppl; 
break; 

} 

break; 
default : 

fprintf  (stderr,  "CONTROLS:  controls_resupply_flash :  Impossible  transfe 
nprintf  ("CONTROLS:  controls_resupply_flash:  Impossible  transfer_status 
break; 


void  controls_resupply_unflash  (slot,  transfer_status,  resupply_location) 
int  slot; 

char  transfer_status,  resupply_location; 

{ 

switch  (transfer_status) 

{ 

case  HaLL_HEAT_VAL: 

if  (slot  !-  NULL_SLOT) 

{ 

idc__output__set_ns_cond  (!  controls_cornmander_panel_status  (), 

heat_translations  [slot],  ODTPUT_OFF) ; 

) 

idc__output_set_ns_cond  ( !  controls_coramander_panel_status  ( ) , 

H(7LL_HEAT_L,  OOTPDT_OFF)  ; 

break; 

case  HOLL_APDS_VAL: 

if  (slot  !-  NULL_SLOT) 

{ 

idc_output__set_ns_cond  { !  controls_coromander_panel_status  ( ) , 

apds_translations  [slot],  OUTPUT_OFF) ; 

} 

idc__output__set_ns_cond  (!  controls_commander_panel_status  (), 


HULL  APDS  L, 


break; 

case  SEMI_HEAT_VAL: 

if  (slot  !-  NULL_SLOT) 
{ 


OUTPUT  OFF); 


idc_output_set_ns_cond  ( !  controls_coinmander_panel_status  ( ) , 

heat_translations  [slot],  OUTPUT_OFF) ; 

} 

idc_output_set_ns_cond  ( !  controls_coinmander_panel_8tatus  ( ) , 

SEMI_HEAT_L,  OUTPUT_OFF) ; 

break; 

case  SEMI_APDS_VAL: 

if  (slot  !-  NULL_SLOT) 

{ 

idc_output_set_ns_cond  (!  controls_coinmander_panel_status  (), 

apds_translations  [slot],  OUTPUT  OFF); 

} 

idc_output_set_ns_cond  (!  controls_coinmander_panel_status  (), 

SEMI_APDS_L,  OUTPUT_OFF) ; 

break; 

case  REDIST_SEND_VAL: 

idc_output_set_ns_cond  (!  controls_coinmander_panel_status  (), 

REDIST_SEND_L,  OUTPUT_OFF) ; 

break; 

case  REDIST_RECV_VAL: 

switch  (resupply_location) 

{ 


case  HULL_HEAT_VAL; 

idc_output_set_ns_cond  (!  controls_conmander_panel_status  (), 

HnLL_HEAT__L ,  OUTPUT_OFF )  ; 

idc_output_set_ns_cond  (!  controls_coinmander_panel_status  (), 

REDIST_RECV_L,  OUTPUT_OFF) ; 

break; 

case  HULL_APDS_VAL : 

idc_output_set  ns__cond  (!  control  s_commander_panel_s  tat  us  (), 

HULL_APDS_L,  OUTPUT_OFF); 

idc_output_set_ns_cond  (!  controls_conimander_panel_status  (), 

REDIST_RECV_L,  OUTPUT_OFF) ; 

break ; 

case  SEMI_HEAT_VAL: 

idc_output_set_ns_cond  ( !  controls_conimander_jpanel_status  ( ) , 

SEMI_HEAT_L,  OUTPUT_OFF)  ; 

idc_output_set_ns__cond  (!  controls_coinmander_panel_status  (), 

REDIST_RECV_L,  OUTPUT_OFF) ; 

break; 

case  SEMI_APDS_VAL; 

idc_output_set_ns_cond  ( !  controls_coinmander_panel_status  ( ) , 

SEMI_APDS_L,  OUTPUT_OFF); 

idc_output_set_ns__cond  (!  controls_conmiander_panel_status  (), 

RED1ST_RECV_L,  OUTPUT_OFF) ; 

break; 

case  READY_HEAT_VAL; 

if  (slot  !-  NULL  SLOT) 

{ 


} 


idc_output__set_ns_cond  ( !  controls_coinmander_panel_status  ( 

heat  translations  [slot],  OUTPUT  OFF) 


idc__output_set_ns_cond  (!  control s_coninander_panel  status  (), 

REDIST_REC:V_L,  OUTPDT_OFF)  ;  ■“ 

break; 

case  READY  APDS  VAL: 


if  (slot  !-  NULL  SLOT) 
{ 


idc_output_set_ns_cond  ( !  controls_coinmander_panel_status  ( 

apds_translations  [slot],  OUTPUT_OFF) 


} 


} 


idc_output_set_ns__cond  { !  controls_coiTimander_panel_status  ( ) , 

REDIST_RECV_L,  OUTPUT_OFF) ; 

break; 
default : 

fprintf  (stderr,  "CONTROLS:  controls_resupply_unf lash :  Impossib 
nprintf  ("CONTROLS:  controls_resupply_unflash:  Impossible  resup; 
break ; 


break; 
default : 


fprintf  (stderr,  "CONTROLS:  controls_resupply_unflash:  Impossible  trans 
nprintf  ("CONTROLS:  controls_resupply_unflash:  Impossible  transfer_stat 
break; 


void  controls_resupply_restore  (slot,  transfer_status,  resupply_location) 
int  slot; 

char  transfer_status,  resupply_location; 

{ 

switch  (transfer_status) 

{ 

case  HULL_HEAT_VAL : 

if  (slot  NULL_SLOT) 

( 

idc_output_restore_cond  ((!  controls_commander_panel_status  ())  && 

(!  controls_failure_status  ()), 
heat  translations  [slot]}; 

} 

idc_output_restore_cond  ((!  controls_commander_panel__status  ())  && 

( !  controls_f ailure__status  () ) , 

HULL_HEAT_L)  ; 

break; 

case  HULL_APDS__VAL: 

if  (slot  !-  NULL_SLOT) 

{ 

idc_output_restore_cond  ((!  controls_commander_panel_status  ())  && 

( !  controls_f ailure_status  () ) , 
apds  translations  [slot]); 

} 

idc_output_restore_cond  ((!  controls_commander_jpanel_status  ()) 

( I  controls_failure_status  () ) , 

HULL_APDS_L) ; 

break; 

case  SEMI_HEAT_VAL: 

if  (slot  !-  NULL_SLOT) 

{ 

idc_output_restore_cond  ((!  controls_coinmander_panel_status  ())  && 

( !  controls_f ailure_status  () ) , 
heat_translations  [slot]); 

} 

idc_output_restore_cond  ((!  controls_commander_panel_status  ())  && 

(!  control s_failure__status  ()), 

SEMI_HEAT_L) ; 

break; 

case  SEMI_APDS_VAL: 

if  (slot  !-  NULL_SLOT) 

{ 

idc_output_restore_cond  ((!  controls_coinmander_panel_status  ())  && 

(!  controls_failure_status  ()), 
apds  translations  [slot]); 

} 

idc_output_restore_cond  ((!  controls_commander_panel_status  ()) 

(!  controls_failure__8tatus  ()), 

SEMI  APDS  L) ; 


break; 

case  REDIST_SEND__VAL: 

idc_output_restore_conci  ((!  control  s_coiiimander_panel__st  at  us  ())  && 

(!  controls_failure_status  oTr 
REDIST_SEND_L)  ; 

break; 

case  REDIST_RECV_VAL: 

switch  (resupply  location) 

{ 

case  HULL_HEAT_VAL: 

idc_output_restore_cond  ((!  controls_coinmander_panel_status  ()) 

(!  control s_failure_st at us  ()), 
HULL_HEAT_L) ; 

idc_output_restore_cond  ((!  controls_coinmander_panel_status  ()) 

( !  controls_f ailure_status  { ) ) , 
REDIST_RECV_L) ; 

break; 

case  HULL_APDS_VAL: 

idc_output_restore_cond  ((!  controls_coitimander_panel_status  ()) 

(!  controls_failure_status  ()), 
HOLL_APDS_L) ; 

idc__output_restore_cond  ( ( !  controls_coinmander_panel_status  ( ) ) 

(!  controls_failure_status  ()), 
REDIST_RECV_L) ; 

break; 

case  SEMI_HEAT_VAL: 

idc_output_restore_cond  {(!  controls_coitimander_panel_status  ()) 

( !  controls_f ailure_status  ( ) ) , 
SEMI_HEAT_L)  ; 

idc_output_restore_cond  ((!  controls_conimander_panel_status  ()) 

(!  controls_failure_status  ()T/ 
REDIST_RECV_L) ; 

break; 

case  SEMI_APDS_VAL; 

idc__output__testore_cond  ((!  controls_commanderjpanel_status  {)) 

(!  controls_failure_status  oT, 
SEMI_APDS_L)  ; 

idc__output_restore_cond  ((!  controls_coinmander_panel_status  ()) 

( !  controls_f ailure_status  () ) , 
REDIST_RECV_L) ; 

break; 

case  READY_HEAT_VAL : 

if  (slot  !-  NULL  SLOT) 

{ 

idc_output_restote_cond  ( ( !  controls_coinmander_panel_status 

( !  controls_failure_status  ( ) ) , 

^  heat_translations  [slot]); 

idc__output_restore_cond  ( ( !  controls_coitimander_panel_status  ( ) ) 

( !  controls_f ailure_status  ( ) ) , 
REDIST_RECV_L) ; 

break; 

case  READy_APDS_VAL ; 

if  (slot  !-  NULL  SLOT) 

{ 

idc_^output_restore__cond  ( ( !  controls_commander_panel_status 

(!  controls_failure_status  ()), 
apds_translations  [slot]); 

idc__output_restore_cond  ((!  controls__coTnmander__panel_status  ()) 

( !  controls_f ailure_status  ( ) ) , 
REDIST_RECV  L) ; 

break; 

default : 

fprintf  (stderr,  "CONTROLS;  controls_resupply_restore ;  Impossib 
nprintf  ("CONTROLS:  controls__resupply_restore:  Impossible  resup 


break; 


} 

break; 

case  NO_TRANSFER_VAL: 

break; 
default : 

fprintf  (stderr,  "CONTROLS:  controls_resupply_restore :  Impossible  trans 
nprintf  ("CONTROLS:  controls_resupply_restore :  Impossible  transfer_stat 
break; 

} 

} 


void  controls_odometer_pulse  () 

{ 

idc_OUtput_set  (DR_ODOMETER_PDLSE,  ODTPDT_ON) ; 

/*  If  the  odometer_timer  is  already  timing,  we  must  replace  it  */ 

/*  with  the  more  up-to-date  timer,  and  the  old  one  must  be  freed  */ 
if  (odometer_timer_number  !-  NULL_TIMER) 

{ 

timer s_free_timer  (odometer_timer  number)  ; 

} 

odometer_timer_number  •  timer s_get_timer  (ODOMETER_DELAY)  ; 

} 


void  controls_turret_ref_ind  (radians) 

REAL  radians; 

{ 

REAL  degrees,  shif t_degrees ; 
int  offset,  i; 

degrees  -  rad_to_deg  (radians); 

if  ( (shift_degrees  -  degrees  -  (TURRET_REF_SECTOR_SIZE  /  2.0))  <  0.0) 

{ 

shift_degrees  +-  360.0; 

1 

offset  -  shift_degrees  /  TDRRET_REF_SECTOR_SIZE; 

if  (!  idc_values  ( turret_ref_translat ions [off set] ] ) 

{ 

for  (i  -  0;  i  <  TURRET_REF_NDM_SECTORS;  i++) 

{ 

if  (i  —  offset) 

{ 

idc_output_set_cond  ( !  controls__f ailure_status  ( ) , 

turret_ref_translations [i] ,  OUTPUT_ON) ; 

} 

else  if  (idc_values  [turret_ref_translations [i] ] ) 

{ 

idc__output_set_cond  (!  controls_commander_panel_status  (), 

turret_ref_translations [ i] ,  OUTPUT_OFF ) ; 

} 

} 

) 

} 


static  void  controls_grid_a2imuth_check  () 
{ 


REAL  speed; 


/*  so  abs  doesn't  call  tracks_compute_yelocity  ()  twice  ...  */ 
speed  -  tracks_coiipute^velocity  {); 

/*  need  to  check  this  every  tick  in  case  you  start  moving 
and  the  azimuth  button  is  pushed,  the  azimuth  indicator 
should  turn  off  */ 

switch  (idc_values(GRID  AZIMUTH  PB] ) 

{ 

case  ON: 

inap_set_bvunper_status  (TRUE) ; 
if  (abs (speed)  <  0.1) 

{ 

if  (!  grid__azimuth_status) 

{ 

turret_send_azimuth_ind  (); 
grid_azimuth_status  -  ON; 

} 

} 

else 

{ 

if  (grid_azimuth_status) 

{ 

turret_null_azimuth_ind  (); 
grid_azimuth  status  -  OFF; 

} 

} 

break; 
case  OFF: 

niap_set_bumper_status  (FALSE)  ; 
if  (grid_azimuth  status) 

{ 

turret_null_azimuth_ind  (); 
grid_azimuth_status  -  OFF; 

} 

break; 
default : 

fprintf  (stderr,  "CONTROLS:  controls_grid_azimuth_check:  Impossible  pus; 
nprintf  ("CONTROLS:  controls_grid_azimuth_check:  Impossible  push  button 
break; 


void  controls_show_breech  (contents) 

ObjectType  contents; 

{ 

if  ((contents  —  munition__US_M456Al)  || 

(contents  —  inunition'’uS  N392A2)) 

{ 

idc_output_set_cond  (!  controls_failure_status  (), 

LD  BREECH  LOADED  L,  OUTPUT  ON) ; 

}  -  _ 


else 

{ 


idc_output_set_cond  (!  controls_coinmander_panel_status  (), 

LD_BREECH_LOADED_L,  OUTPUT_OFF) ; 


void  controls  nojpower  off  () 

{ 

idc__reset  (); 

timer s_delayjproc  (INVERTJDELAY,  idc_invert_outputs,  NECESSARY,  0.0); 
control s_8ervicejbrake_exit  (); 


aunmo_s t  op_t  imer  s  ( ) ; 
controls_odometer_exit  (); 
controls_cupola_up_down_exit  () ; 
controls_binoculars_on_off_exit  () ; 
controls_lpscope_up__down_exit  ()  ; 


static  void  controls_fuel_flash_check  () 

{ 

if  ((fuel  flash__status  ”  ON)  ti& 

(++fuel_flash_count  —  TICKS  PER  SECOND)) 

{ 

fuel  flash  count  «■  0; 

} 

if  (fuel_fla?h_count  —  BEGIN_FLASH) 

{ 

controls__fuel_flash  (); 

} 

else  if  (fuel_flash  count  —  END  FLASH) 

( 

controls_fuel_unflash  (); 

} 

} 


void  controls_start_fuel  flashing  () 
{ 

fuel_flash__status  -  ON; 
fuel_flash__count  -  0; 
controls_fuel_restore  (); 

) 


void  controls_stop_fuel_f lashing  () 
{ 

fuel__flash_status  *  OFF; 
fuel_flash_count  -  0; 
controls_fuel_restore  (); 

1 


static  void  controls_fuel  flash  () 

{ 

idc_output_set_ns  (DR  LOW  FUEL  L,  OUTPUT  ON) ; 
}  -  -  -  _ 


static  void  controls_fuel  unflash  () 
{ 


idc_output_set_ns_cond  (!  control s_driverjpanel_status  () 

DR  LOW  FUEL  L,  OUTPUT  OFF) ; 


r 


static  void  controls_fuel_restore  () 

( 

idc_output__restore__cond  ((!  controls__driver_panel_status  ()) 

( !  controls_f ailure_status  ( ) ) , 
DR_LOW_FUEL‘  L)  ; 

} 


static  void  control s_odometer_check  () 

{ 

if  (timers_get_timeout_edge  (odometer__tiiner_nuniber)  ) 
{ 

timers_free_timer  (odometer_timer_nuinber)  ; 
odom€ter_tiiner_number  -  tiiners_set_null_timer  () 
idc_output_set  (DR_ODOMETER_PULSE,  OUTPUT_OFF) ; 

} 

} 


static  void  controls_odometer_exit  () 

{ 

tijners_free_tiiner  (odometer_timer_nuinber) ; 
odometer_timer_nuniber  ■  tiiners_set_null_timer  {); 

} 


static  void  controls_cupola_up_down_check  () 

{ 

char  temp^up,  teinp_down; 

temp__up  -  idc_values  [CM_CnPOIiA_UP]  ; 
teinp_down  -  idc_values  [CM_CUPOLA_DOWN] ; 

if  ( (temp__up)  && 

( cupoXa_up_down__val  !-  CM_UP_VAL)  && 

{ !  teinp_down) ) 

{ 

cupola_up_down_val  -  CM_UP_VAL; 

/*  vision_cmdrs_pitch__up  ();*/ 

vision_cmdrsjpitch'” (PITCH  UP); 

> 

else  if  ((!  teinp__up)  && 

(cupola__up_down_val  CM_CENTER_yAL)  && 
( !  teinp_down) ) 

{ 

cupola__up_down_val  -  CM_CENTER_VAL; 

/*  vision_cmdrs_pitch_ahead  ();*/ 

vision_cnidrs_pitch  (PITCH_AHEAD)  ; 

} 

else  if  ( (teinp_down)  && 

(cupola_up_down_val  !-  CM_DOWN_VAL)  && 

( !  teit5)_up) ) 

{ 

cupola_up_down_val  -  CM_DOWN_VAL; 

/*  vision_cmdrs_pitch__down  ();*7 

vision__cmdrs_pitch  (PITCH  DOWN) ; 

) 

) 


static  void  controls  cupola  up  down  init  () 
{  -  -  - 
if  (idc_values  (CM_CDPOLA  DPJ) 

{ 

cupola_up_down_val  -  CM__UP  VAL; 

/*  vision_cmdrs_pitch_^up  ();*7 

vision__cmdrs_pitch~ (PITCH  DP);_ 

} 

else  if  (idc_values  [CM_CDPOLA_DOWNl ) 

{ 


cupola_up__down_val  -  CM_DOWN_VAL; 

/*  vision_andrs_pitch_down  ();*/ 

vision_cmdrs_pitch  {PITCH_DOWN) ; 

} 

else 

{ 

cupola_up__down_val  -  CM_CENTER_VAL; 
/*  vision_cmdrs_pitch_ahead  ();*/ 

vision_cmdrs_pitch  (PITCH_AHEAD) ; 

) 

} 


static  void  controls_cupola_up_down_exit  () 

{ 

/*  vision_cindrs_pitch_ahead  ()/*/ 
vision_cmdrs_pitch  (PITCH_AHEAD) ; 

} 


static  void  controls_lpscope_up_down_check  () 

{ 

char  tenp_up,  temp_down; 

temp_up  »  idc_values  [LD_PSCOPE_UPl ; 
teinp_down  -  idc_values  [LD__PSCOPE_DOMN] ; 

if  ( (teinp_up)  && 

(lpacope_up_down_val  !*  LD_UP_VAL)  && 

(!  teinp_down)  )  ~ 

{ 

lpscope_up_down_val  -  LD__UP_VAL; 

/*  vision_Ioadersjpitch_up  {);*/ 

vision_loaders_pitch  (PITCH_UP) ; 

} 

else  if  ((!  tenip_up)  && 

(lpscope_up_down_val  !*  LD__CENTER_VAL) 

( !  ten5>_down) ) 

{ 

lpscope_up_down_val  “  LD_CENTER_VAL; 

/♦  vision_loadersjpitch_ahead  ();*/ 

vision_loaders_pitch  (PITCH_AHEAD) ; 

> 

else  if  ( (temp_down)  && 

(lpscope_up_down_val  !»  LD__DOWN_VAL)  iS 

( !  ten5>_up) ) 

{ 

lpscope_up_down_val  -  IJ)_DOWN_VAL; 

/*  vision_loaders_pitch_down  ();*/ 

vision_loaders_pitch  (PITCH_DOWN) ; 

} 

) 


static  void  controls  lpscope_up_down_init  () 

{ 

if  (idc  values  tLD_PSCOPE_TJP] ) 

{ 

lpscope_up_dovm_val  »  IiD_UP_VAL; 

/♦  vision_loaders_pitch_up  ();*/ 

vision_loadersjpitch  (PITCH_UP) ; 


} 


else  if  (idc_values  [LD_PSCOPE_DOWN] ) 

lpscope_up_down_val  LD_DOWN_VAL; 

/*  vision_loaders_pitch_down  ();*/ 

vision_loaders_pitch  (PITCH_DOWN) ; 

} 

else 

{ 

lpscope_up_down_val  ■  LD_CENTER  VAL; 
/*  vision_loaders_pitch_ahead  ();*7 

vision__loaders_pitch  {PITCH_AHEAD)  ; 

) 

> 


static  void  controls_lpscope_up_down_exit  () 
{ 

I*  vision_loaders_pitch_ahead  ();*/ 
vision_loaders_pitch  (PITCH_AHEAD) ; 

} 


void  controls_restore_ainmo  () 

{ 

switch  (anBno_transfer_status) 

{ 

case  SEMI_HEAT_VAL: 

controls_transfer_semi_heat  (); 
break; 

case  SEMI_APDS_VAL; 

controls_transfer_semi_apds  (); 

case  HULl1heaT__VAL; 

controls_transfer_hull__heat  (); 

case  HULL__APDS_VAL: 

controls_transfer_hull__apds  (); 
break ; 

case  NO_TRANSFER__VAL; 

controls_transfer_no_transfer  ()  ; 
break; 

case  REDIST_SEND_VAL: 

controls_transfer_redist_S€nd  () ; 
break; 

case  REDIST_RECV_VAL: 

controls_transfer_redist_recv  () ; 
break; 

default : 

fprintf  (stderr,  "CONTROLS:  controls_restore_ainmo:  Impossible  ammo  tran 
nprintf  ("CONTROLS:  controls_restore_ammo :  Impossible  ammo  transfer  sta 
break; 

} 

} 

static  void 

controls_binoculars__on_of f_exit  ( ) 

{ 

binocular s_on_off_val  -  OFF; 

} 

static  void 

control s_binoculars_on__off_init  ( ) 

{ 

binocular s_on__off_val  -  idc_values  lCM_BINOCULARS] ; 

if  (binoculars_on_off__val  —  ON) 


vision_cincirs_binoculars  (BINOC) ; 

else 

vision_cmcirs_binoctilars  (NO_BINOC) ; 

} 


static  void 

controls_binoculars_on_of f_check  ( ) 

{ 

char  teinp; 

if  (.temp  -  idc_values [CM_B INOCULARS ] )  !-  binocular s_on_off_val) 

{ 

binoculars_on_off_val  -  temp; 
if  (binoculars_on_off_val  —  ON) 

vision_cmdrs_binoculars  (BINOC) ; 

else 

vision_cmdrs_binoculars  (NO_BINOC) ; 

} 

) 


static  void 

controls_thernial_shutter_chec)c  () 

{ 

char  tenp; 

if  ((temp  -  idc_values  ( THERM_S BUTTER ] )  !-  thermal_shutter_val) 

{ 

switch  (thermal_shutter_val  ■  temp) 

{ 

case  ON: 

thermal_shutter  0  ; 
brea)(; 
case  OFF: 

thermal_clear  0  ; 
break; 
default : 

fprintf  (stderr,  "CONTROLS:  controls_thermal_shutter_check:  Impossi. 
printf  ("CONTROLS:  controls_thermal_shutter_check :  Impossible  therm 
break; 

} 

} 

) 


static  void 

controls_thennal_shutter_init  () 

{ 

vision_aet_gunner_no_thermal ( ) ; 

switch  (thennal_shutter  val  -  idc_values  I THERM_S BUTTER] ) 

{ 

case  ON: 

thennal__shutter  0  ; 
thennal~shutter_val  -  OFF; 
break; 
case  OFF: 

thennal_clear  ( ) ; 
thential__shutter_val  -  ON; 
break; 
default : 

fprintf  (stderr,  "CONTROLS:  controls__thermal_shutter_check :  Impossible 
printf  ("CONTROLS:  controls_thermal_shutter_check :  Impossible  thermal_s 
break ; 

} 

} 


♦include  "pro_siin.h" 
♦include  ''pro~data.h" 
♦include  ”repair_ml  .h" 

♦include  "mass_stdc.h” 
♦include  "dgi_stdg.h" 
♦include  "siroTcig^if .h" 

♦include  "libfail.h" 
♦include  "librepair .h” 
♦include  "libniem_d£n.h'' 
♦include  "libnetwork.h" 
♦include  "timers.h" 
♦include  "libsound.h" 
♦include  "libhull.h" 
♦include  "libkin.h" 
♦include  "libfilter .h" 
♦include  "librva.h" 


♦include  ”inl_main.h" 
♦include  "ml_cntrl.h" 
♦include  "ml_elecsys . h" 
♦include  "ml_engine.h" 
♦include  "ml_laser . h" 
♦include  "ml_fuelsys . h" 
♦Include  "ml_weapons . h" 
♦include  "inl_tracks.h" 
♦include  "ml_turret .h" 
♦include  "inl_dtrain.h" 
♦Include  "ml_vision.h" 
♦include  "ml_repair .h" 
♦Include  "ml_sound.h" 
♦include  "ml_ainmo.h" 
♦Include  "ml_keybrd.h" 
♦include  "inl_polhemus  .h" 
♦include  "ml_cupola.h" 
♦include  "status. h" 


finclude  ''ml_status  .h” 

♦include  "ml_turr_pn . h” 

♦include  "ml_driv_pn.h" 

♦include  "net /net work. h" 

♦ifndef  SIMBFLY 

♦include  "enpioctl.h" 

♦else 

♦include  "enpsvr.h" 

♦endif 

♦define  DELTA_POT  0.005 

static  int  console; 
static  int  use_keyboard  -  FALSE; 
static  int  use_cupola  -  FALSE; 
static  REAL  lpscope_value  *  0.0; 
static  REAL  cws_value  0.0; 
static  REAL*  vec; 

static  void  keyboard_setup_terminal  ( ) ; 

void  keyboard_really_use  () 

{ 

use_keyboard  “  TRUE; 

} 


void  keyboard_use_cupola  () 

{ 

use_cupola  -  TRUE; 

print f  ("Cupola  and  periscope  now  under  keyboard  control\n"); 

} 


void  keyboard_init  ( ) 

{ 

if  ( !  use_keyboard) 

{ 

return; 

) 

keyboard_setup_tenninal  ( ) ; 

printf  ("Keyboard  ready,  type  <?>  for  help\n"); 

if  (use_cupola) 

{ 

cupola_lpscope_new_value  (0.0); 
cupola__cws_new__value  (0.0); 

} 

> 

♦ifdef  SIMBFLY 

/*  Want  to  know  how  many  pkts/second  causes  simulation  to  degrade  */ 
static  long  pkt_cnt_start ; 

♦endif 

void  keyboard_simul  () 
char  cmd; 

int  network__stats  [N_STATS] ; 
char  network_statstr [41] ; 


int  n; 


if  ( !  use_keyboard) 

{ 

return; 

) 

cmd  -  keybrd_tty_read  (console) ; 
if  (cmd  —  0) 
return; 


switch  (cmd  &  0x7F)  /*  want  7  bit  ascii  */ 

{ 

case  'a'  ; 

/*  f ail_break_system  (  vehiclelDIrrelevant,  damageCauseIntervention, 

Ml_CommAntennaFailure) ; */ 
printf  ("keyboard:  controls_kill_radio  ()\n"); 
break; 
case  'A'  : 

reconstitute_from_keyboard  ();/*  changed  by  cjc  2/14/89  */ 

/*  change' 


/* 


*/ 


/* 


printf  ("keyboard:  reconstitute_vehicle  ()\n"); 

repair_stop_repair  (Ml_CominAntennaFailure)  ; 
printf  ("keyboard:  controls_restore_radio  ()\n"); 


break; 
case  'b'  : 

lpolhemus_init  ( )  ; 
set  jpolhemus_f  iag_true  ( ) ; 
controls_set_using_polhemus__true  ( ) ; 
printf  ("keyboard:  Use  Polhemus  for  cupolaXn"); 
break; 
case  'B'  : 

set_polhemus_flag_false  0 ; 
controls_set_using_j)olhemus_false  () ; 
polhemus_exit ( )  ; 

printf  ("keyboard:  Turn  off  Polhemus . \n") ; 
break; 
case  ' c’  : 

controls_break_controls  (); 

printf  ("keyboard:  controis_break_controls  ()\n"); 
break; 
case  'C'  : 

controls_restore_controls  (); 

printf  ("keyboard;  controls_restore_controls  ()\n"); 
break; 
case  'd'  ; 

printf ("keyboard:  before  deactivate  simulationXn") ; 
deactivate_simulation  (); 

printf ("keyboard:  after  deactivate  simulationXn"); 
break; 


case  'D' ; 

f  ilter_dunp_filter_info  () ; 
break; 
case  'e'  : 

f ail_break_system (  vehiclelDIrrelevant,  damageCauseIntervention, 

Ml_EngineMa jorFailure  );*/ 
printf  ("keyboard:  engine_major_failure  ()\n"); 
break; 


case  'E'  : 

repair__fix_system(  repairCauseIntervention,  mlReplacePowerPack  ); 
printf  ("keyboard:  engine_replace_j)Owerpack  OXn"); 
break; 
case  'f'  : 


printf ("keyboard;  network_get_vehicle_force ()  -  %d\n", 
network_get_vehicle_force ()  ) ; 

/*  fail_break_system(  vehiclelDIrrelevant,  damageCauselntervention, 

Ml_LRFFailure  ) ; 

printf  ("keyboard:  laser_lrf_failure  ()\n");  */ 
break; 
case  'F'  ; 

repair_fix_system(  repairCauseIntervention,  mlRepairLRF  ) ; 
printf  ("keyboard:  laser_repair_lrf  ()\n"); 
break; 
case  'g'  : 

/*  fail_break_systeni(  vehiclelDIrrelevant,  damageCauselntervention, 

Ml_EngineOilFilterClogged  );*/ 

/*  printf  ("keyboard:  engine_clog_oil__filter  ()\n");*/ 

printf  ("turning  on  asid_debug\n") ; 
jiiap_set_asid_debug  (TRUE) ; 
break ; 
case  'G'  : 

/*  repair_f ix_sy stem (  repairCauseIntervention,  mlReplaceEngineOilFilter  ); 

/*  printf  ("keyboard:  engine_replace_oil_filter  ()\n");*/ 

printf  ("turning  off  asid_debug\n") ; 
map__set_asid_debug  (FALSE); 
break; 
case  'h'  ; 

/*  fail_break_system(  vehiclelDIrrelevant,  damageCauselntervention, 

Ml_FuelTransferPumpFailure  );*/ 
printf  ("keyboard:  fuel_transfer_j)ump_failure  ()\n"); 
break; 
case  'H'  : 

repair_fix_system(  repairCauseIntervention,  mlRepairFuelTransferPump  ) ; 
printf  ("keyboard:  fuel_repair_transfer_pump  ()\n"); 
break; 
case  'i'  : 

/*  f ail_break_sy stem (  vehiclelDIrrelevant,  damageCauselntervention, 

Ml_TurretMainGunFailure  );*/ 
printf  ("keyboard:  weapons__disable_main_gun  ()\n"); 
break; 
case  '1'  : 

repair_f ix_sy stem  (  repairCauseIntervention,  mlRepairTurretMountlnterfac' 
printf  ("keyboard;  weapons_^repair_main_gun  ()\n"); 
break; 
case  'j'  : 

elect sys_battery_failure  () ; 

printf  ("keyboard;  electsys_battery_failure  ()\n"); 
break; 
case  'J'  ; 

repair_fix_system(  repairCauseIntervention,  mlReplaceBattery  ); 
printf  ("keyboard;  electsys_replace_battery  ()\n"); 
break; 
case  'k'  ; 

/*  fail_break_system(  vehiclelDIrrelevant,  deunageCauseIntervention, 

Ml_EngineStarterFailure  );*/ 
printf  ("keyboard;  engine_starter_failure  ()\n"); 
break; 
case  'K'  : 

repair_f ix_system  (  repairCauseIntervention,  mlReplacePilotRelayStarter 
printf  ("keyboard;  engine_replace_starter  ()\n"); 
break; 
case  '1'  : 

/*  f ail_break_system (  vehiclelDIrrelevant,  damageCauselntervention, 

Ml_FDriveLeftTrackFailure  );*/ 
printf  ("keyboard;  tracks_throw__left_track  ()\n"); 
break; 
case  'L'  ; 

printf  ("keyboard:  rva_dump^riority__lists  ()  \n") ; 
rva__duit5)__priDrity__lists  () ; 


break; 
case  'm'  ; 

/*  f ail_break_sy8tem (  vehiclelDIrrelevant,  damageCauselntervention, 

Ml_TurretGunMountFailure  ) ; 

printf  ("keyboard:  turret_break_mount_interface  ()\n");*/ 
map_j>rint  ( ) ; 
break; 
case  'M'  : 

repair_f ix_system (  repairCauselntervention,  mlRepairTurretMount Interf ac' 
printf  ("keyboard:  turret_repair_inount_interface  ()\n"); 
break; 
case  'n'  : 

/*  f ail_break_systeni (  vehiclelDIrrelevant,  damageCauselntervention, 

Ml_TurretGunElevationFailure  ) ;*/ 
printf  ("keyboard:  turret_break_elevation_drive  ()\n"); 
break; 
case  'N'  : 

repair_f ix_system (  repairCauselntervention,  mlRepairGunElevationDrive  ) 
printf  ("keyboard:  turret_repair_elevation__drive  ()\n"); 
break; 
case  'o'  ; 

I*  fail_break_system(  vehiclelDIrrelevant,  damageCauselntervention, 

Ml_DTrainOilFilterClogged  );*/ 

printf  ("keyboard:  drivetrain_clog_transmission_oil_filter  ()\n"); 
break; 
case  '0'  : 

repair_fix_system (  repairCauselntervention,  mlReplaceTransOilFilter  ); 
printf ("keyboard:  drivetrain_replace_transmission_oil_filter  ()\n") ; 
break; 
case  'p'  : 

rva_turn_debug_on ( ) ; 

printf ("Turning  priority  sort  debug  on\n"); 
break; 
case  'P'  : 

rva_turn_debug__of  f  ( ) ; 

printf ("Turning  priority  sort  debug  off\n"); 
break; 
case  ' q'  : 

/*  f ail_break_system (  vehiclelDIrrelevant,  deunageCauselntervention, 

Ml_CmdrsVisionBlocksBroken  ) ; */ 
printf  ("keyboard:  vision_break_cmdrs_blocks  ()\n"); 
break ; 
case  'Q'  ; 

/*  repair_stop_^repair  (  Ml_CmdrsVisionBlocksBroken  );*/ 

printf  ("keyboard:  vision_restore_cmdrsJblocks  ()\n"); 

break; 
case  'r'  ; 

/*  fail_break_system(  vehiclelDIrrelevant,  damageCauselntervention, 

Ml_CommAnt€nnaFailure  );*/ 
controls_kill_radio () ; 

printf  ("keyboard:  controls_kill_radio  ()\n"); 
break; 
case  'R'  : 

/*  repair_stop__repair  (  Ml_CommAntennaFailure  );*/ 

control 8_re St or e_radio ( ) ; 

printf  ("keyboard:  controls__restore_radio  ()\n"); 
break; 
case  '8'  : 

I*  f ail_break_8ystem (  vehiclelDIrrelevant,  damageCauselntervention, 

Ml_TurretStabSystemFailure  ) ; 
printf  ( "keyboard ;  turret_break_stab__sy st em  ( )  \ n" ) ;  */ 
use__static_debug  (1) ; 
break; 
case  'S'  : 

i*  repair_f ix_sy stem (  repairCauselntervention,  mlRepairStabSystem  ); 

printf  ("keyboard:  turret_repair_stab_system  ()\n"); 


case  '1'  : 

/*  fail_break_systeni(  vehiclelDIrrelevant,  damageCause Intervention, 

Ml_priversVisionBlocksBroken  ) ;  *t 
printf  ("keyboard:  vision_break_driver_blocks  ()\n"); 
break; 
case  ' ! '  : 

/*  repair_stop_repair (  Ml_DriversVisionBlocksBroken  );*/ 

printf  ("keyboard:  vision_restore_driver_blocks  {)\n"); 
break; 
case  '1’  ; 

/*  fail__break_systein(  vehiclelDIrrelevant,  damageCauselntervention, 

Ml_GunnersSightBroken  );*/ 
printf  ("keyboard:  vision_break_jgps  ()\n”); 
break; 
case  '6'  : 

/*  repair_stop_repair (  Ml_GunnersSightBroken  );*/ 

printf  ("keyboard:  vision_restore_gps  {)\n"); 
break; 
case  '3'  ; 

controls_electsys_dead  (); 

printf  ("keyboard:  controls_electsys_dead  ()\n"); 
break; 
case  : 

controls_electsys_reborn  (); 

printf  ("keyboard:  controls_electsys_reborn  ()\n"); 
break; 
case  '4'  : 

sound_reset  ( )  ; 

printf  ("keyboard:  sound_reset  ()\n"); 
break; 
case  '5'  : 

fail_cat_kill  (  4 vehiclelDIrrelevant,  damageCauselntervention  ) ; 
prinFf  ("keyboard;  fail_cat_kill  {)\n"); 
break; 
case  : 

fuel__init_tanks  (187.0,  70.0,  70.0); 
printf  ("keyboard:  fuel_init_tanks  ()\n"); 
break; 
case  '%'  : 

repair__all_systems  (); 
controls__electsys_r^orn  (); 
control s_re St or e_radio  (); 
if  (use_cupola) 

{ 

cupola_lpscope_new_value  (lpscope_value) ; 
cupola_cws_new_value  (cws  value) ; 

} 

printf  ("keyboard;  fixing  everythingXn") ; 
break; 
case  ' ; 

printf  ("keyboard:  network_print_statistics  ()\n"); 
network_print_statistics  (); 
break; 
case  ' ] '  : 

printf  ("keyboard;  ten^erature  and  power  supplies\n") ; 
statusprint  ten^>  and  supplies  (); 
break; 
case  '  : 

if  (u8e_cupola) 

{ 

printf  ("keyboard:  loader's  periscope  left\n"); 
lpscope__value  —  DELTA_POT; 
if  (lpscope_yalue  <  -1.0) 
lpscope_value  -  -1.0; 
cupola_lpscope_new  value  (Ipscope  value); 

} 


else 

{ 

printf  ("toggling  gunners  vision\n"); 
toggle_gunner__vision_state  (); 

} 

break; 
case  ' : 

if  (use_cupola) 

{ 

printf  ("keyboard:  loader's  periscope  rightXn") ; 
lpscope_value  +-  DELTA_POT; 
if  (lpscope_value  >  1.0) 
lpscope_value  -  1.0; 

cupola_lpscope_new_value  (lpscope_value) ; 

) 

else 

{ 

printf  ("toggling  drivers  visionXn"); 
toggle_driver_vision_state  (); 

} 

break; 
case  : 

if  (use_cupola) 

{ 

printf  ("keyboard:  commander's  cupola  left\n"); 
cws_value  —  DELTA_POT; 
if  (cws_value  <  -1.0) 
cws_value  ■«  -1.0; 
cupola_cws_new_value  (cws_value) ; 

} 

else 

{ 

printf  ("view  modesXn") ; 
print_view_modes  (); 

} 

break; 
case  '  ('  : 

if  (use^cupola) 

{ 

printf  ("keyboard;  commander's  cupola  right \n"); 
cws_value  +-  DELTA_POT; 
if  (cws_value  >  1.0) 
cws_value  -  1.0; 

cupola_cws_new  value  (cws  value) ; 

) 

else 

{ 

printf  ("Unassigned  character:  type  <?>  for  help\n"); 

) 

break; 
case  '?'  ; 

/*  1  */  HELP_PRINT1  ('A',  "reconstitute_vehicle") ; 

/*  2  */  HELP_PRINT2  ('b',  "Use  Polhemus  for  cupola.",  'B', 

"Turn  off  Polhemus."); 

/*  3  */  HELP_PRINT2  ('c',  "controls_break_controls",  'C', 
"controls__restore_controls") ; 

/*  4  */  HELP_PRINT1  ('D',  "filter_dump_filter_info")  ; 

/*  5  */  HELP_PRINT2  ('e',  "engine_ma jor_failure",  'E', 

"engine_replace_powerpack") ; 

/*  6  */  HELP_PRINT2  ('f',  "laser_lrf__failure",  'F',  "laser_repair_lrf ") ; 

/*  7  */  BELP_PRINT2  ('g',  "engine_clog_oil_filter",  'G', 

"engine_replace  oil_f ilter " ) ; 

/*  8  */  HELP_PRINT2  ('h',  "fuel_transfer_pump_failure",  'H', 

"f uel_repair_transf er_pump" ) ; 

/*  9  */  HELP_PRINT2  ('i',  "weapons__disable_main__gun",  'I', 


J 


/* 

10 

*/ 

/* 

11 

*/ 

/* 

12 

*/ 

/* 

13 

*/ 

14 

*/ 

/* 

15 

*/ 

/* 

16 

*/ 

/* 

17 

*/ 

/* 

18 

*/ 

/* 

19 

*/ 

/* 

20 

*/ 

/* 

1 

*/ 

/* 

2 

*/ 

/* 

3 

*/ 

/* 

4 

*/ 

/* 

5 

*/ 

/* 

6 

*/ 

/* 

7 

*/ 

/* 

8 

*/ 

/* 

9 

*/ 

/* 

10 

*/ 

/* 

11 

*/ 

/* 

12 

*/ 

/* 

13 

*/ 

/* 

14 

*/ 

/* 

15 

*/ 

16 

*/ 

/* 

17 

*/ 

/* 

18 

*/ 

/*  19  */ 
I*  20  */ 


/*  1  */ 
/*  2  */ 
/*  3  ♦/ 


"weapons_repair_main_gun") ; 

HELP__PRINT2  ('j'»  "electsys_battery_failure",  ' 
"electsys_replace_battery") ; 

HELP_PRINT2  ( ' k ' ,  "engine_starter_f allure" ,  '  K' , 
"engine_replace_starter”) ; 

HELP__PRINT1  ('1',  "tracks_throw_left_track") ; 

HELP_PR1NT1  ('L',  "rva_dun55jpriority_.aists" )  ; 

HELP_PR1NT2  ('m',  "turret_break_inount_interface",  'M', 
"turret_repair_mount_interf ace" ) ; 

HELP__PRINT2  ('n',  "turret_break_elevation_drive",  'N', 
"turret_repair_elevation_drive" ) ; 

HELP_PRINT2  ('o',  "drivetrain_clog_transmission_oil_f liter" ,  'O' 
"drlvetraln_replace_transmlsslon_oll_fllter") ; 

HELP_PRINT2  ('p',  "rva_turn_debug_on" ,  'P', 

"rva_turn_debug_off ") ; 

HELP_PRINT2  ('q',  "vlslon_break_cmdrs_blocks",  'Q', 
"vlslon_restore_cmdrs_blocks" ) ; 

HELP_PRINT2  {'r',  "controls_klll_radlo",  'R', 
"controls_restore_radlo")  ; 
prlntf  ("TO  SEE  THE  NEXT  PAGE,  TYPE  <6>  ...\n"); 
break; 
case  '6'  ; 

HELP_PRINT2  ('s',  "static_debug  on",  'S',  "statlc_debug  off") ; 
HELP_PRINT2  ('t',  "drivetraln_transinlsslon_fallure",  'T', 
"englne_replacejpower_pack") ; 

HELP_PRINT2  ('u',  "englne_clog_fuel_f liter" ,  'U', 
"englne_replace_fuel_f liter") ; 

HELP_PRINT2  ('v',  "turret_break_traverse_drlve",  'V', 
"turret_repalr_traverse_drlve" ) ; 

HELP_PRINT2  ( '  w' ,  "drlvetraln_transinlsslon_oll__leak" ,  '  W' , 
"englne__replace_j)owerpack") ; 

HELP_PRINT2  ('x',  "vlslon__break_gps_ext",  'X', 

"vislon^restore  gps_ext"); 

HELP_PR1NT2  ('y',  "vlsion_break_ldrs_j>scope"  ,  'Y', 
"vision__restore  ldrs_pscope") ; 

HELP__PRINT2  ('z',  "€nglne__oll_leak" ,  'Z', 
"englne_replace__powerpack") ; 

HELP_PRINT2  ('!',  "vlslon__break_drlver_blocks",  '!', 

" vlslon_restore_drlver_blocks " ) ; 

HELP_PR1NT2  ('2',  "vlslon_break_gps",  '0',  "vlslon_restore_gps") 
HELP_PRINT2  ('3',  "controls_electsys_dead",  '#', 

"controls  elect sys_reborn") ; 

HELP_PRINT1  (“4',  "sound_reset") ; 

HELP_PR1NT2  ('5',  "fall_cat_klli",  '%',  "fixing  everything"); 
HELP_PRINT1  ('-',  "  fuel_tanks_lnlt") ; 

HELP_PRINT1  ('[',  "network_prlnt_statlstlcs") ; 

HELP_PRINT1  (']',  "  print  temperature  and  power  supplies"); 

If  (use__cupola) 

{ 

HELP_PRINT2  ("'',  "loader's  periscope  left", 

"loader's  periscope  right”); 

HELP_PRINT2  ('*',  "commander's  cupola  left",  '(', 
"commander's  cupola  right"); 

} 

else 

{ 

flELP_PRINT2  ('^',  "toggle  gunners  vision",  'fi', 

"toggle  drivers  vision"); 

} 

HELP_PRINT1  (',',  "print_reasons")  ; 
prlntf  ("TO  SEE  THE  NEXT  PAGE,  TYPE  <7>  ...\n"); 
break; 
case  '7'  : 

HELP_PRINT2  ('O',  "in  pivot  steer",  ')',  "out  of  pivot  steer"); 
HELP_PRINT2  ('/',  "binoculars  on",  '\\',  "binoculars  off"); 

HELP  PRINTl  ('9',  "Restore  ammo"); 


/*  4  */  HELP_PRINT1  "tiiners_status")  ; 

/*  5  */  HELP_PRINT1  "print  CMC  statistics”); 

/*  6  */  HELP  PRINTl  "zero  CMC  statistics"); 

/*  7  */  HELP~PRINT1  "send_aziinuth")  ; 

/*  8  */  HELP__PRINT1  "null_azimuth")  ; 

/*  9  */  HELP_PRINT1  ('}*,  "print  and  reset  bbd  rtc  statistics"); 

/*  10  */  HELP_PRINT1  "print  bbd  rtc  statistics"); 

/*  11  */  HELP^PRINTl  "Current  <x,  y,  z>"); 

/*  12  */  HELP_PRINT1  "ainmo_print_statistics") ; 

/*  13  */  HELP_PRINT1  "print  n_inapped  value"); 

/*  14  */  HELP_PRINT1  ('X»,  "print_sorted_vehicle_lists") ; 

/*  15  */  HELP_PRINT1  "timing  bits" ) ; 

/*  16  */  HELP_PRINT1  "Page  1  of  help"); 

/*  17  */  HELP_PRINT1  {'6',  "Page  2  of  help") ; 

/*  18  */  HELP_PRINT1  ('7',  "Page  3  of  help") ; 

brea]c; 
case  '9'  : 

ainmo__restore_ainmo  (); 
controls_restore_ainmo  (); 

printf  ("Iceyboard:  ainmo_restore_ainmo  ()\n"); 
printf  ("Jceyboard;  controls__restore_ainmo  {)\n"); 
brealc; 
case  '0'  : 

idc_values  lDR_PIVOT_MODE]  -  1; 
idc_values  (DR_TRANS_NEUTRAL]  -  0; 
idc_values  [DR_TRANS_DRIVE]  -  0; 
idc_values  tDR_TRANS_LOW)  •  0; 
idc_values  [DR_TRANS_REVERSE]  «  0; 
printf  ("Iceyboard:  in  PIVOT  steer \n"); 
brealc; 
case  ' ) '  : 

idc  values  [DR_PIVOT_MODE]  -  0; 
idc^values  [DR_TRANS_NEUTRAL]  -  0; 
idc_values  (DR_TRANS_DRIVEJ  -  0; 
idc_values  (DR_TRANS_LOW]  -  0; 
idc_values  (DR_TRANS_REVERSE3  -  0; 
printf  ("Iceyboard:  out  of  PIVOT  steer\n") ; 
brealc; 
case  : 

printf  ("Iceyboard:  timers_status  ()\n"); 
timers_status  (); 
brealc; 
case  '+'  ; 

printf  ("Iceyboard:  net_getstats\n") ; 
if (net_print_statistics (net_handle)  —  -1) 

{ 

printf ("can't  get  network  statisticsXn") ; 

nprintf ("KEYBOARD:  can't  get  network  statisticsXn"); 

} 

♦ifdef  SIMBFLY 

else 

{ 

long  now; 
now  -  rtc; 

now  —  pkt_cnt_start; 
printf ("%6.3f  pkts/secondXn", 

network_stats [12]  *  SECOND  /  ((double)  now)); 

> 


#endif 


break; 


case  : 

printf  ("keyboard:  net_zerostats\n") ; 
if  (net_zero_statistics  (net_handle)  -1) 
{ 


printf  ("can't  zero  network  statisticsXn"); 

nprintf  ("KEYBOARD;  can't  zero  network  statisticsXn"); 


} 

«i£def  SIMBFLY 

plct_cnt_start  -  rtc; 

♦endif 

break; 
case  ' ; '  : 

printf  ("keyboard:  send_azimuth\n”) ; 
turret_send_a2iinuth_ind() ; 
break; 
case  ' : '  : 

printf  ("keyboard:  null_azimuth\n") ; 

turret_null_azimuth_ind  ( ) ; 

break; 

CASG  ^ ^ • 

tif  defined (SIMBFLY) 

bbd_rtc_statistics (FALSE) ; 

#else 

printf ("{  is  only  available  on  the  Butterfly\n") ; 

tendif 

break; 
case  ' } ' : 

#if  defined (SIMBFLY) 

bbd_rtc_statistics (TRUE) ; 

#else 

printf ("}  is  only  available  on  the  Butterfly\n") ; 

#endif 

break; 
case  ' <’  : 

{ 

VehiclelD  *veh_id  -  network_get_vehicle_id  (); 

printf  ("keyboard:  Current  <x,y,z>  for  vehicle  num  %d  is\n" 
veh_id  ->  vehicle  ) ; 

vec  -  kinematic s_get_o_to_h  (veh_kinematics) ; 
printf  ("<%lf,  %lf,  %lf>\n",  vec[0],  vec[l],  vec[2]); 

} 

break; 
case  ' ; 

ammo_print_statistics  (); 
printf  ("ainmo__print_statistics  ()\n"); 
case  ' : 

printf  ("n_mapped  -  %d\n",  get_n_inapped  ()); 
break; 
case  ' , '  : 

print_reasons  ( ) ; 
break; 
case  '/'  : 

printf  ("cmdrs  binoculars  on\n"); 
vision_cmdrs_binoculars  (BINOC) ; 
break; 
case  '\\'  : 

if  (get_ballistics_debug  ()) 

{ 

set_balli8tics_debug  (FALSE) ; 
printf  ("ballistics_debugging  off\n"); 

} 

else 

{ 

set_ballistics_debug  (TRUE) ; 
printf  ("ballistics  debugging  on\n"); 

) 

break; 
case  ' I ' : 

rtc_print_jpermanent  ( ) ; 
break; 


> 


default  : 
pxintf 
JBxeak; 


^■Onaaaigned  character:  type  <7>  for  helpXn"); 


static  void  )ceyboaxd^setup_terBiinal  {) 

^  console  “  keybrd__tty__init  (0,  p_RDONLY) ; 
} 

•tetild  .'void  keyboard_te8et^tertninal  ( ) 

-  Iw3^d_tty_xeset  (console); 


void  keyboardjexit__gracefully  () 

^  if  (!  use  keyboard) 

{ 

return; 

} 

keyboard_rcset_terminal  (); 
keybrd._tty_close  (console) ; 


^pendixG: 

Software  to  Control  ESIG-500  Head  Tracking  Display 
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HEAD  MOUNTED  DISPLAY  -  Image  Generator  Control  Program 


FILENAME:  esighmd.cpp 


By:  -  Visual  Systems  Laboratory 

-  Institute  for  Simulation  and  Training 

-  University  of  Central  Florida 


Copyright  (c)  1991  the  University  of  Central  Florida 
-  All  Rights  Reserved 


Author:  Richard  Dunn-Roberts 


FUNCTION  LIST: 


FUNC:  int  initializeEthernet (  int  maxDataSize,  int  nuroPackets  ) 
This  function  initializes  the  Ethernet  packet  queues, 
the  packet  manager,  and  the  3Com  Ethernet  drivers. 

General  Comments: 

This  program  was  written  to  run  on  a  PC-AT,  using 
Borland  C+-t-  version  2.0  (with  the  built-in  assembler)  . 
It  is  designed  to  control  the  operation  of  the  ESIG  500 
Image  Generator  for  use  with  a  Head-Mounted  Display . 


Operational  Comments; 

This  program  operates  as  a  communications  server.  It 
accepts  input  from  the  serial  port.  This  input  may  be 
from  a  Polhemus  magnetic  tracker  or  from  another 
computer  on  a  network.  The  input  is  then  converted  to 
ESIG  500  Image  Generator  commands  and  retransmitted 
via  dedicated  Ethernet  to  the  ESIG  500  to  control 
the  direction  of  the  users  point  of  view. 

The  basic  layout  is  as  follows: 
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For  further  system  details,  refer  to  the  project  report, 


/*  Type,  Structure  &  Constant  Defs  */ 

!*  Necessary  Include  Files  */ 

♦include  <stdio.h> 

♦include  <stdlib.h> 

♦include  <string.h> 

♦include  <conio.h> 

♦include  <bios.h> 

♦include  <time.h> 

♦include  <dos.h> 

♦include  <inath.h> 

♦include  <fstream.h> 

♦include  "esighmd.h" 

♦include  "esigcom.h" 

♦include  "keypresl.h" 

♦include  "serial. h" 

/*  Function  Prototypes  *! 


extern  int  getopt (  int  argc,  char  far  *argv[],  char  far  *optionS  ); 

/*— — — */ 

/*  Globals  */ 

static  unsigned  long  far  *timer  -  (unsigned  long  far  *)MK_FP (0, 0x460 ; 

//  BIOS  timer 

int  numpackets  -  0;  //  number  of  packets  that  have  been  received 

//  Ethernet  addresses  of  this  machine  (src)  and  ESIG  500  (dest) 

//  unsigned  char  srcH  *  (  0x02,  0x60,  0x8c,  0x43,  0xa7,  Oxfl  }; 

//  unsigned  char  dest[]  -  {  0x00,  0x08,  0x01,  0x57,  0x58,  0x00  }; 

//  external  globals  for  getopt 

extern  int  optind;  //  index  of  which  argument  is  next 

extern  char  *optarg;  //  pointer  to  argument  of  current  option 

extern  int  opt err;  //  allow  error  message 

/*  Function  main  */ 

f*  */ 

/*  P/OIAMETERS:  */ 

/*  int  argc  -  number  of  command  line  arguments  */ 

/*  char  **argv  -  array  of  string  pointers  to  command  line  arguments  */ 

/*  */ 

/*  PROCESS:  */ 


This  is  the  main  routine. 


/*  RETURN  VALUE: 

/*  int  -  unused  by  operating  system,  but  available  for  user 


int  main  (  int  argc, 


- - - - - - - - *  / 

char  **argv  ) 


int  done  -  0, 
retCode  -  0, 
option, 

printCount  *  10000, 
syncErr  «  0, 
csNum; 

time_t  startTime, 
endTime ; 


//  completion  flag  is  false  to  start 
//  function  success  (0)  or  failure  (!0) 

//  command  line  option 

//  how  often  do  we  print  stats? 

//  number  of  serial  sync  errors  to  occur 
//  coordinate  system  number  command  goes  to 

//  timer  values 


double  xin,  //  intermediate  value  of  x,y,2,  pitch,  heading, 

yin,  //  roll  received  from  serial  port 

zin, 

pitchin, 

headingin, 

rollln; 


char  syncChar,  //  character  to  sync  serial  communications 

errFlag,  //  did  error  occur  in  current  cycle? 

csN\amChar;  //  character  representing  coord,  system  number 

long  count  0,  //  number  of  cycles  that  have  passed 

messageCount  -  0,  //  number  of  messages  sent 

maxDataSize  -  300,  //  maximum  size  of  ethernet  data 

numPackets  -  100,  //  number  of  available  ethernet  packets 

viewX  «  19,  //  initial  x,  y,  z,  heading,  pitch,  roll 

viewY  •  19, 
viewZ  -  6, 
viewHeading  -  180, 
viewPitch  -  350, 
viewRoll  ■  0, 

X,  //  X,  y,  z,  heading,  pitch,  roll  used  during 

y,  //  run 

2  , 

heading, 

pitch, 

roll; 


//  program  takes  8  arguments,  each  with  default  values 
while (  (  option  -  getopt  (  argc,  argv,  "drnrxiyrz :p:h: "  )  )  !«  EOF  ) 
{ 

switch  (  option  ) 

{ 

case  'd'  : 

maxDataSize  -  atoi (  optarg  ) ; 
break  ,* 
case  'n'  ; 

numPackets  -  atoi (  optarg  ) ; 
break; 
case  'x'  : 

viewX  -  atoi (  optarg  ) ; 
break; 
case  'y'  : 

viewY  -  atoi (  optarg  )  ; 
break; 
case  'z'  : 

viewZ  -  atoi (  optarg  ) ; 
break; 
case  'h'  : 


viewHeading  -  atol (  optarg  ) ; 
break; 
case  'p'  : 

viewPitch  «  atol(  optarg  ); 
break; 
case  '?'  ; 

printf(  "Invalid  option,  option  ignored. \n"  ); 
break; 

) 

} 

//  initialize  the  comport  to  receive  commands 
InitComPort(  0,  DIVISOR{19200)  ); 

//  initialize  the  ethernet 

retCode  *  initializeEthernet (  maxDataSize,  numPackets  ) ; 
if  (  retCode  )  / /  something  went  wrong 
{ 

cprintf (  "\n\rinitializeESIGControl 0  returns  %d\n\r",  retCode  ); 
return  retCode; 

) 

else 

{ 

cprintf  (  "»>  ESIG  500  Control  Program\n\r"  )  ; 

cprintf  (  ">»  UCF  Institute  for  Simulation  and  Training\n\r"  ) ; 
cprintf  (  "\n\r»>  Initialization  complete\n\r"  )  ; 

} 

//  initialize  the  viewpoint  to  the  de  position  and  orientation 
//  NOTE;  this  is  done  twice  or  ESIG  500  takes  it  as  delta  value  to 

//  be  applied  at  every  time  slice 

retCode  -  escs  {  0,  1,  viewX*512,  viewY*512,  viewZ*512, 

viewHeading*! 82,  viewPitch*182,  OL,  messageCount++  ) ; 
if  (  retCode  )  //  something  went  wrong 
{ 

cprintf (  "\n\rescs()  returns  %d\n\r",  retCode  ); 
return  retCode; 

} 

//  second  time,  see  comment  above 

retCode  escs  (  0,  1,  viewX*512,  viewY*512,  viewZ*512, 

viewHeading*182,  viewPitch*182,  OL,  messageCount++  ) ; 
if  (  retCode  )  //  something  went  wrong 
{ 

cprintf (  "\n\rescs()  returns  %d\n\r",  retCode  ); 
return  retCode; 

} 

//  since  we  want  to  know  how  fast  things  are  going,  start  a  timer 
startTime  -  time (  NULL  ) ; 

while  (  I done  ) 

{ 


//  Reinit  errFlag  for  the  new  cycle 
errFlag  -  0; 

//  Get  the  first  character  -  is  it  the  sync  character? 
ReceiveData(  0,  &syncChar,  1  ); 
while  (  syncChar  !-  's'  ) 

{ 

if  (  ! errFlag  ) 

syncErr++; 
errFlag  -  1; 

1 

ReceiveData(  0,  fisyncChar,  1  ); 


} 


//  We  are  now  synced  up,  proceed  with  processing 

//  First  get  the  coordinate  system  number.  Currently  this  is  always 
//  zero,  but  we  must  be  general  enough  to  control  multiple  coordinate 
//  systems 

ReceiveData(  0,  (char  *) ficsNumChar,  1  ); 

//  convert  the  cs  number  to  an  int 
csNum  =  csNumChar  -  'O'; 


//  Next  get  the  transmitted  position  and  orientation  values 
//  These  are  double  floats 
ReceiveData(  0,  (char  *)&xln,  8  ) ; 

ReceiveData (  0,  (char  *)iyln,  8  ) ; 

ReceiveData (  0,  (char  *)&zln,  8  ); 

ReceiveData (  0,  (char  *) &headingln,  8  ); 

ReceiveData (  0,  (char  *)fipitchln,  8  ) ; 

ReceiveData (  0,  (char  *)4rollIn,  8  ) ; 

//  here  we  adjust  the  heading  of  the  viewpoint 
headingin  +»  180.0; 
if  (  headingin  >  360.0  ) 
headingin  -•=  360.0; 

//  Check  cycle  count.  If  cycle  count  is  evenly  divisible  by 
//  printCount,  print  a  status  message, 
if  (  ! (count++  %  printCount)  ) 

printf (  "Cycle  count  -  %id\nbuffer  contains  %d,  syncerrs  %d,  free  packet  n< 
count,  ReceiveBuf f erUsed (  0  ),  syncErr,  NumberOfFreePacketNodes () 

//  Convert  the  double  floats  into  the  long  ints  understood  by  the  ESIG 

X  -  (  long  ) floor  (  xin  *  512.0  ); 

y  •»  (  long  )  floor  (  yin  *  512.0  ); 

z  “  (  long  ) floor (  zin  *  512.0  ); 

heading  -  (long) floor (headingln*182 .0) ; 

pitch  -  (long) floor (pitchln*182 .0)  ; 

//  clamp  the  roll 

//  roll  =  (long) floor (rollln*182.0)  ; 
roll  «  OL; 

//  make  new  view  point  position  relative  to  initial  position 
X  +-  viewX*512; 
y  +-  viewy*512; 
z  +-  viewZ*512; 

//  transmit  new  viewpoint  (twice,  remember?)  , 

retCode  -  escs(csNvmi,  1,  x,  y,  z,  heading,  pitch,  roll,  messageCount++) ; 
if  (  retCode  )  //  something  went  wrong 
{ 

cprintf(  "\n\rescs()  returns  %d\n\r",  retCode  ); 
return  retCode; 

} 

retCode  ■  escs(csNum,  1,  x,  y,  z,  heading,  pitch,  roll,  messageCount++) ; 
if  (  retCode  )  //  something  went  wrong 
{ 

cprintf(  "\n\rescs()  returns  %d\n\r",  retCode  ); 
return  retCode; 

} 

//  Poll  the  keyboard  to  see  if  the  escape  key  has  been  hit 
if  (  KeyPressedO  ) 

{ 


unsigned  key  -  bioskey(O); 
if  (  key  &  Oxff  )  key  &=  Oxff; 
if  (  key  —  Oxlb  )  //  escape  key 
done  -  1; 


} 

//  get  the  end  time 
endTime  -  time (  NULL  ) ; 

//  report  time  stats 

cprintf {  "\n\rElapsed  time  is  %f,  cycleCount  is  %ld,  frequency  is  %f\n\r”, 
difftime(  endTime,  startTime  ),  messageCount, 
messageCount  /  difftime(  endTime,  startTime  )  ); 

//  unload  the  serial  driver  from  memory 
DeinstallDrivers () ; 

//  exit  program 
return  0; 


} 


/*  Function  initializeEthernet  */ 
/*  */ 
/*  PARAMETERS:  */ 
/*  int  maxDataSize  -  largest  possible  data  packet  to  be  sent  */ 
/*  int  numPackets  -  number  of  Ethernet  packets  to  create  */ 
/*  */ 
/*  PROCESS;  *! 
/*  This  function  initializes  the  Ethernet  packet  queues,  the  packet  */ 
/*  manager,  and  the  3Com  Ethernet  drivers.  */ 
t*  */ 
/*  RETURN  VALUE;  */ 
/*  int  -  zero  for  success,  nonzero  for  failure  */ 


int  initializeEthernet  (  int  maxDataSize,  int  numPackets  ) 

{ 

int  retCode  “  0; 

PacketNode  *pnode; 
extern  PacketQueue  RxQueue; 

delay(l);  /*  Initialize  delayO  */ 

retCode  =•  InitPacketManager  (  maxDataSize,  nximPackets  )  ; 
cWrRxFilter  {  0  ) ; 
while  (  !QueueEmpty(  fiRxQueue  )  ) 

{ 

pnode  =  RemovePacket (  &RxQueue  ) ; 

FreePacket {  pnode  ) ; 

} 

return  retCode; 


} 

/* -  end  of  file  esighmd.cpp  - */ 


♦ifndef  _ cplusplus 

♦error  This  progreun  requires  compilation  as  C++, 
♦endif 

♦  ifndef  _LARGE _ 

♦error  This  program  requires  Large  memory  model, 
♦endif 

♦  ifndef  _ ^ESIGHMD 

♦define  _ ESIGHMD 

//  constants  - 

//  structs,  classes,  typedefs  - 

//  macros  and  inline  functions  - 

/ /  function  prototypes  - 


/*  Function  initializeEthernet  */ 
/*  */ 
/*  PARAMETERS:  */ 
/*  int  maxDataSize  -  largest  possible  data  packet  to  be  sent  */ 
/*  int  numPackets  -  number  of  Ethernet  packets  to  create  */ 
/*  */ 
/*  PROCESS:  */ 
/*  This  function  initializes  the  Ethernet  packet  queues,  the  packet  */ 
/*  manager,  and  the  3Com  Ethernet  drivers.  */ 
/*  */ 
/*  RETURN  VALUE:  */ 
/*  int  -  zero  for  success,  nonzero  for  failure  */ 

int  initializeEthernet  (  int  maxDataSize,  int  numPackets  ) ; 


♦endif  //  ESIGHMD 


/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 


*/ 

HEAD  MOUNTED  DISPLAY  -  ESIG  500  IG  Command  Library  */ 

*/ 

*/ 

FILENAME;  esigcom.cpp  */ 

*/ 

*/ 

By;  -  Visual  Systems  Laboratory  */ 

-  Institute  for  Simulation  and  Training  */ 

-  University  of  Central  Florida  */ 

*/ 

*/ 

Copyright  (c)  1991  the  University  of  Central  Florida  */ 

-  All  Rights  Reserved  */ 

*/ 

*/ 

Author;  Richard  Dunn-Roberts,  Chuck  Campbell  */ 

*/ 

*/ 

FUNCTION  LIST;  */ 

-  */ 

*/ 

FUNC;  int  esambient (int  scene,  int  ambience,  long  messageCount)  */ 
This  function  sets  ambient  light  levels.  */ 

FUNC;  int  esanimation(  int  cs,  int  select,  int  parcel,  */ 

int  placeable,  int  control,  */ 

int  sequence,  long  messageCount  )  *! 

This  function  executes  a  predefined  animation  sec[uence.  *! 
FUNC;  int  eschannel(  int  niomber,  int  display_a,  int  display_b,  */ 

int  viewport,  int  color,  long  messageCount  )  */ 
This  function  sets  control  parauneters  for  specific  */ 

channel  on  the  ESIG  500.  */ 

FUNC;  int  escloud(  long  top,  long  bottom,  long  messageCount  )  */ 

This  function  sets  cloud  top  and  bottom  heights.  *! 

FUNC;  int  escold(  int  color,  int  valid,  int  automatic,  */ 

long  messageCount  )  */ 

This  functions  sets  characteristics  of  collision  */ 

detection  indicators  */ 

FUNC;  int  escoldpt (  int  number,  long  x,  long  y,  long  z,  */ 

long  messageCount  )  */ 

This  function  sets  collision  detection  test  points  */ 

FUNC;  int  escs  (  int  csnum,  int  select,  long  x,  long  y,  long  z,  */ 
unsigned  int  heading,  unsigned  int  pitch,  */ 

unsigned  int  roll,  long  messageCount  )  */ 

This  functions  controls  characteristics  of  ig  coordinate  */ 
systems.  */ 

FUNC;  int  esdisable (  int  esig_switch,  long  messageCount  )  */ 

FUNC;  int  esenable (  int  esig_switch,  long  messageCount  )  */ 

These  two  functions  enable  and  disable  simulation  */ 

characteristics,  such  as  weather,  strobes,  and  collision  *! 
detection.  */ 

FUNC;  int  esgfog(  signed  int  top,  long  messageCount  )  */ 

This  function  sets  the  height  of  ground  fog.  *! 

FUNC;  int  eshatpt (  int  number,  signed  long  x,  signed  long  y,  */ 

signed  long  z,  long  messageCount  )  *! 

This  function  sets  height  eJDove  terrain  test  points.  */ 

FUNC;  int  eshorizon(  int  brightness,  int  directional,  */ 

unsigned  int  heading,  long  messageCount  )  *! 

This  function  sets  horizon  brightness  and  direction.  */ 

FUNC;  int  esinstructor (  int  channel,  long  messageCount  )  */ 

This  function  sets  Instructor  monitor  channel.  *! 

FUNC;  int  eslight (int  number,  int  intensity,  long  messageCount)  */ 
This  function  sets  the  intensity  of  light  switches. 

FUNC;  int  eslobe(  int  lights,  long  messageCount  )  */ 

This  function  sets  aircraft  landing  lights.  *! 
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/* 

/* 

/* 
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FUNC:  int  esmodel (int  colocate,  int  parcel,  long  messageCount ) 
This  function  allows  user  to  load  a  datcdsase. 

FUNC:  int  espolygon(  int  number,  int  intensity, 

long  messageCount  ) 

This  function  sets  polygon  intensity. 

FUNC;  int  esrvr (  long  range,  long  messageCount  ) 

This  function  sets  runway  visibility  range. 

FUNC:  int  esscene (  int  select,  long  messageCount  ) 

This  function  sets  day,  dusk,  or  night  scene  type. 

FUNC:  int  essun(  unsigned  int  heading,  unsigned  int  pitch, 

long  messageCount  ) 

This  function  sets  sun  heading  and  pitch. 

FUNC;  int  estraf f ic (  int  cs,  int  select,  int  parcel, 
int  placeable,  int  control,  int  scenario, 
long  messageCount  ) 

This  function  sets  information  for  routed  or  converging 
traffic. 

FUNC:  int  esviewport(  int  channel,  int  alternate,  long  x, 

long  y,  long  z,  unsigned  int  heading,  unsigned  int  pitch, 
unsigned  int  roll,  unsigned  int  vertical, 
unsigned  int  horizontal,  long  messageCount  ) 

This  function  sets  viewport  characteristics . 

FUNC;  int  esvisibility (  long  range,  long  messageCount  ) 

This  function  sets  visibility  range. 

General  Comments: 

This  library  was  written  to  run  on  a  PC-AT,  using 
Borland  C++  version  2.0.  It  is  designed  to  provide 
functional  support  to  control  the  ESIG  500  image 
generator . 


Operational  Comments: 

This  library  provides  the  interface  to  control  the 
ESIG  500  from  a  user  program.  The  public  functions 
take  the  user's  inputs,  converts  them  into  an 
Ethernet  packet,  and  retransmits  the  information  to 
the  ESIG  500. 

The  basic  layout  is  as  follows: 

+ - +  ethernet  link 

I  PC  AT  - 

I  (user  program)  f 

1  (esigcom)  I 

I  I 


+ - + 

For  further  system  details,  refer  to  the  project  report. 


+ - + 

>1  ESIG  500  I 
I  I 

I  I 

I  1 

+ - + 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


/*_— - - - - 

/*  Type,  Structure  &  Constant  Defs  */ 
/* - - - */ 

/*— - - - - - */ 

/*  Necessary  Include  Files  */ 

♦include  <stdlib.h> 

♦include  "esigcom. h" 

/*  Function  Prototypes  */ 


/*  Global s  */ 

j  j 

1 1  Ethernet  addresses  of  this  machine  (src)  and  ESIG  500  (dest) 
unsigned  char  src[]  ••  {  0x02,  0x60,  0x8c,  0x43,  0xa7,  Oxfl  }; 
unsigned  char  dest[]  -  {  0x00,  0x08,  0x01,  0x57,  0x58,  0x00  }; 


/* 

Function  esambient 

*/ 

/* 

*/ 

/* 

PARAMETERS : 

*/ 

/* 

scene  -  the  scene  whose  brightness  is 

being  set. 

*/ 

/* 

amibience  -  the  brightness  value  (0-255) . 

*/ 

/* 

messageCount  -  sequence  number  of  this  message 

*/ 

/* 

*/ 

/* 

Process : 

*/ 

/* 

Program  to  set  brightness  for  the  scene. 

Brightness  is  a  scalar  from 

*/ 

/* 

0-255,  and  scene  is  0  (night),  1  (dusk). 

or  2  (day) . 

*/ 

/* 

*/ 

/* 

Returns : 

*/ 

/* 

int  -  success  —  0,  failure  !-  0; 

*/ 

/* 

*/ 

int  esambient (  int  scene,  int  eunbience,  long  messageCount  ) 
{ 


struct  ambient_struct  ^ambient; 
int  ret Code  -  0; 

ambient  -  (struct  ambient_struct  *)calloc(l,sizeof (struct  ambient_struct) ) ; 

aunbient->hostmessage  ->  messageCount; 

ambient -•>hostopcode  «  0; 

ambient ->ambience  •  ambience; 

ambient->endOfData  -  0; 

switch (  scene  ) 

{ 

case  0: 

eunbient->opcode  -  0x0042; 
break; 

case  1: 

ambient ->opcode  *  0x0041; 
break; 

case  2: 

cunbient->opcode  -  0x0040; 
break; 

default :  break; 

} 

retCode  -  TransmitPacket (  ambient,  sizeof (  arobient_struct  ),  dest,  sizeof (  ambi' 
free (  ambient  ) ; 
return  retCode; 


} 

/*♦**■***★★*****★★*♦****★*★****★*************♦**♦*******♦*****★**★*■************/ 


/* 

Function  esanimation 

*/ 

/* 

*/ 

/* 

PARAMETERS : 

*/ 

/* 

cs  -  the  number 

of  the  coordinate  system. 

*/ 

/* 

select  -  the  select 

switch. 

*/ 

/* 

parcel 

-  the  parcel  index  (0  - 

255)  . 

*/ 

/* 

placeable  -  0  -  local  parcel,  1  - 

placeaible  parcel. 

*/ 

/* 

control 

-  animation  control  number. 

*/ 

/* 

sequence 

-  animation  sequence  number  (0  -  15) . 

*/ 

/* 

messageCount  -  sequence  number  of 

this  message 

*1 

/* 

*/ 

/* 

Process : 

*/ 

/* 

Executes 

a  predefined  animation  sequence.  Controls  are: 

*1 

/* 

ES  NO  INFO 

no  effect. 

*/ 

/* 

ES  LOAD  ANIMATION 

Loads  animation  information 

*/ 

/* 

ES  START  ANIMATION 

Starts  animation 

*/ 

/* 

ES  STOP  ANIMATION 

Stops  animation 

*/ 

/* 

ES  UNLOAD  ANIMATION 

Unloads  animation 

*/ 

/* 

*/ 

/* 

Returns : 

*/ 

/* 

int  -  success  0,  failure  !-  0; 

*/ 

/* 

*1 

int  esanimation(  int  cs,  int  select,  int  parcel,  int  placeable,  int  control, 

int  sequence,  long  messageCount  ) 


{ 


struct  aniin_struct  *anim; 
int  retCode  -  0; 

anlm  -  (struct  aniin_struct  *)  calloc  (1,  sizeof  (struct  anim_struct ) ) ; 

anim->hostmessage  -  messageCount; 

anim->hostopcode  -  0; 

anim->opcode  -  OxOOla; 

anim->cs  -  cs; 

anim->select  "«  select; 

anim->parcel  -■  parcel; 

anim->placeable  -  placeable; 

anim->xyz  -  7; 

anim->control  -  (control«4)  +  sequence; 
anim->endOfData  -  0; 

retCode  «  TransmitPacket (  anim,  sizeof (  anim_struct  ),  dest,  sizeof (  anim_struc 
free  (  anim  ) ; 
return  retCode; 

} 

^  ****'k1t  ****  -k*  Ifkifk  ******  hit  ******  ii1i1fk1c1i*1t1fk  ******  **************  *-k  ***■/(**•><* -kit  ii***  -k  J 


/*  Function  eschannel  */ 

I*  */ 

/*  PARAMETERS:  */ 

/*  number  -  the  channel  number  to  set.  */ 

/*  display_a  -  enable/disable  display  A.  */ 

/*  display_b  -  enable/disable  display  B.  */ 

/*  viewport  -  main/alternate  viewport  select.  */ 

/*  color  -  main/alternate  color  select.  */ 

/*  messageCount  -  sequence  number  of  this  message  */ 

/*  */ 

/*  Process:  */ 

/*  Program  to  set  information  for  a  specific  channel  number  (0-7) .  */ 

f*  Corresponds  to  some  of  the  ESIG  CHANNEL  commands.  */ 

/*  */ 

/*  Returns:  */ 

/*  int  -  success  —  0,  failure  !-  0;  */ 

I*  */ 


^*****************************************************************************/ 
int  eschannel (  int  number,  int  display_a,  int  display_b, 

int  viewport,  int  color,  long  messageCount  ) 


{ 


struct  channel_struct  *channel; 
int  retCode  ^  0; 

channel  -  (struct  channel_struct  *) calloc (1, sizeof (struct  channel_struct) ) ; 

channel->hostmessage  -  messageCount; 

channel->hostopcode  -  0; 

channel->opcode  ■  0x0015; 

channel->nuinber  «  number; 

channel->display_a  -  display_a; 

channel->display__b  -  display_b; 

channel->viewport  “  viewport; 

channel->color  -  color; 

channel->endOfData  -  0; 

retCode  *>  TransmitPacket  (  channel,  sizeof  (  channel_struct  ),  dest,  sizeof  (  chan: 
free (  channel  ) ; 
return  retCode; 

} 


/*  Function  escloud  */ 
/*  */ 
/*  PARAMETERS:  */ 
/*  top  -  value  for  height  of  top  of  clouds.  */ 
/*  bottom  -  value  for  height  of  bottom  of  clouds.  */ 
/*  messageCount  -  sequence  number  of  this  message  */ 
/*  */ 
/*  Process:  */ 
/*  Program  to  set  the  cloud  top  and  bottom  (max.  alt.  is  24.8  mi.) .  */ 
/*  Corresponds  to  the  ESIG  CLOUDS  function.  */ 
/*  Input  has  been  scaled  to  correspond  to  the  ESIG  */ 
/*  */ 
/*  Returns;  */ 
/*  int  -  success  0,  failure  !*  0;  */ 
/*  */ 


/★********★********♦*********★****♦***★♦****■*■*********************************/ 
int  escloud (  long  top,  long  bottom,  long  messageCount  ) 

( 

struct  cloud_struct  *cloud; 
int  retCode  -  0; 

cloud  -  (struct  cloud_struct  *) calloc (1, sizeof (struct  cloud_struct) ) ; 

cloud->hostmessage  -  messageCount; 

cloud->hostopcode  -  0; 

cloud->top_opcode  -  0x0017; 

cloud->top  -  top/ 4; 

cloud->bot_opcode  -  0x0018; 

cloud->bottom  -  bottom/ 4; 

cloud->endOfData  -  0; 

retCode  -  TransmitPacket (  cloud,  sizeof (  cloud_struct  ),  dest,  sizeof (  cloud_st; 
free(  cloud  ); 
return  retCode; 

} 


/*  Function  escold  */ 
/*  */ 
/*  PARAMETERS;  */ 
/♦  color  -  index  into  the  color  palette.  */ 
/*  valid  -  enable/disable  color  index  validity.  */ 


/*  automatic  -  enable/disable  the  automatic  collision  detection  indicator.*/ 


/*  messageCount  -  secjuence  number  of  this  message  */ 
/*  */ 
/★  ★/ 
/*  Process:  */ 
/*  Program  to  set  the  characteristics  of  the  collision  detection  indicator*/ 
/*  Corresponds  to  some  of  the  ESIG  COLD  command  options.  */ 
/*  */ 
/*  Returns:  */ 
/*  int  -  success  —  0,  failure  !-  0;  */ 
/*  */ 


int  escold(  int  color,  int  valid,  int  automatic,  long  messageCount  ) 

{ 

struct  cold_struct  *cold; 

int  retCode  »  0,  size  sizeof  (  cold__struct  ); 

cold  *  (struct  cold_struct  *) calloc (1, sizeof (struct  cold_struct) ) ; 

cold->hostmessage  -  messageCount; 

cold->hostopcode  -  0; 

cold->opcode  “  0x0035; 

cold->color  “  color; 

cold->valid  -  valid; 

cold->automatic  -  automatic; 

cold->endOfData  «  0; 

retCode  »  TransmitPacket (  cold,  size,  dest,  size  ); 
free(  cold  ); 
return  retCode; 

} 

^it1tiritieit*ifiriticititi(irieitieitifitiri(i^ifiticicieitieieirititifieiti[ie'k'kieieici(ieifitic'kici(itificie*it'kit*iticic'k'kic'kic'kicit'kicicir^ 


/*  Function  escoldpt  */ 

/*  */ 

/*  PARAMETERS:  */ 

/*  nvimber  -  testpoint  number  (0~31,  255  to  clear  all  testpoints)  .  */ 

/*  X  -  X  offset.  */ 

/*  y  -  y  offset.  */ 

!*  z  -  z  offset.  */ 

/*  messageCount  -  sequence  number  of  this  message  */ 

/*  */ 

/*  Process:  */ 

/*  Program  to  implement  collision  detection  test  points.  */ 

/*  Corresponds  to  the  ESIG  COLD  function.  */ 

/*  */ 

/*  Returns:  */ 

/*  int  -  success  —  0,  failure  !-  0;  */ 

/*  */ 


/**★★■*•♦**♦******♦♦*****************************************★**★***************/ 

int  escoldpt (  int  nimber,  long  x,  long  y,  long  z,  long  messageCount  ) 

{ 

struct  coldpt_struct  *coldpt; 

int  *tmp,  retCode  -  0,  size  -  sizeof (  coldpt_struct  ); 

coldpt  -  (struct  coldpt_struct  *) calloc (1, sizeof (struct  coldpt_struct ) ) ; 

coldpt->hostmessage  -  messageCount; 

coldpt->hostopcode  *  0; 

coldpt->opcode  *  0x0033; 

coldpt->number  *  number; 

X  *-  512;  y  *-  512;  z  *-  512;  /*  scale  x,y,z  */ 

tn^)  -  (int  *)fix; 

coldpt->high_x  -  tmp[l]; 

coldpt->low_x  »  tmp{0]; 

tmp  -  (int  *)sy; 


coldpt->high_y  -  tmp[l]; 
coldpt->low_y  -  tmpio]; 
tmp  -  (int  *)&z: 
coldpt->high_z  »  tmptl]; 
coldpt->low_z  -  tmpiO]; 
coldpt->endOfData  «  0; 

retCode  -  TransmitPacket (  coldpt,  size,  dest,  size  ); 
free (  coldpt  ) ; 
return  retCode; 

1 


/* 

Function  escs 

*/ 

/* 

*/ 

/* 

PARAMETERS : 

*/ 

/* 

csnvim  -  the  number  of  the  coordinate 

system. 

*/ 

/* 

select  -  the  select  switch. 

*/ 

/* 

X  -  X  offset. 

*/ 

/* 

y  -  y  offset. 

*/ 

/* 

z  -  z  offset. 

*/ 

/* 

heading  -  heading  angle. 

*/ 

/* 

pitch  -  pitch  angle. 

*/ 

/* 

roll  -  roll  angle. 

*/ 

/* 

messageCount  -  sequence  number  of  this 

message 

*/ 

/* 

*/ 

/* 

Process : 

*/ 

/* 

Program  to  simulate  most  of  the  ESIG  CS 

1  function  in  xyz 

mode 

*/ 

!* 

X,  y,  z,  heading,  pitch,  and  roll  must 

all  be  scaled 

so 

that  when  the 

*/ 

/* 

user  calls  the  function  with  x-100  the 

ESIG  will  set 

X-; 

100. 

*/ 

/* 

x,y,  and  z  are  longs,  but  must  be  byte 

swapped.  I  broke  these  values 

*/ 

/* 

into  high  and  low  words  in  order  to  get  the  function 

to 

work  properly. 

*/ 

/* 

*/ 

/* 

Returns : 

*/ 

/* 

int  -  success  ■—  0,  failure  !-  0; 

*/ 

/* 

*/ 

^  ir  if -kit  if  it  if  it  it  if  ir  it  if  it*  iric  it  if  it  it  fricir'k  ir  it  it  icirieirir  it  if  if  icit  it  it  if  ic  it  ie  it  it  it  ic  if  it  iciric  if 'k'k'k'k  ieirieicie  icieic'k  if  it  icific  it 'k'kicir  ^ 

int  escs (  int  csnum,  int  select,  long  x,  long  y,  long  z,  unsigned  int  heading, 
unsigned  int  pitch,  unsigned  int  roll,  long  messageCount  ) 

{ 


int  *tmp,  retCode  -  0; 
struct  cs  struct  *cs; 


cs  -  (struct  cs_struct  *) calloc (1, sizeof (struct  cs_struct)); 
cs->hostmessage  -  messageCount; 
cs->hostopcode  -  0; 
cs->opcode  -  0x0 Ola; 
cs->cs  -  csnum; 
cs->select  -  select; 
cs->xyz  -  7; 
cs->control  -  0; 
cs->el  -  1; 
cs->hpr  -  7; 
tn^)  -  (  int  *)  4x; 

C8->low_x  -  tinp[0]; 
cs->high_x  -  tmp[i]; 
tmp  -  (  int  *)  iy; 
cs->low_y  “  tn5>[0]; 
cs->high_y  -  tmp[i]; 
tit5>  -  (  int  *)  &z; 
cs->low_z  -  tn5)t0]; 
cs->high_z  -  tmp[i]; 
cs->heading  heading; 


/*  use  x,y,z  mode 
/*  no  control  information 
/*  enable  extrapolation 

enable  heading,  pitch,  and  roll 
typecast  into  integer  (word)  size 


/* 

/* 


*/ 

*/ 

*/ 

*/ 

*/ 


cS“>pitch  -  pitch; 
cs->roll  *  roll; 
cs->endOfData  -  0; 

retCode  -  TransmitPacket (  cs,  sizeof<  cs_struct  ),  dest,  sizeof  (  cs_struct  )  ) 
free (  cs  ) ; 
return  retCode; 

} 

/★******★★*****★**********★**★**★★★★**★***★★**********★******★**★*★*****★★*★**/ 


/*  Function  esdisable  */ 
/*  */ 
/*  PARAMETERS:  */ 
/*  esig_switch  -  the  number  of  the  switch  to  be  disabled.  */ 
/*  messageCount  -  sequence  niunber  of  this  message  */ 
/*  */ 
/*  Process:  */ 
/*  Routine  for  disabling  switches.  */ 
/*  Currently  the  switches  are  defined  as  follows:  */ 
I*  1  —  storm  */ 
/*  2  —  ground  fog  */ 
/*  3  —  patchy  ground  fog  */ 
/*  4  —  scudded  clouds  */ 
/*  5  —  clouds  */ 
/*  6  —  rain  */ 
/*  7  —  lightning  */ 
/*  8  —  light  strings  displayed  with  random/modeled  intensity  */ 
/*  9  —  own- ship  wing  tip  strobe  */ 
/*  10  —  own-ship  anti-collision  beacon  */ 
/*  11  —  height  above  terrain  */ 
/*  12  —  collision  detection  */ 
/*  13  —  collision  detection  indicator  */ 
/*  */ 
/*  Returns;  */ 
/*  int  -  success  —  0,  failure  !-  0;  */ 
/*  nothing.  */ 
/*  */ 


/********★★******★***********************************★************************/ 
int  esdisable (  int  esig_switch,  long  messageCount  ) 

{ 

int  retCode  -  0; 

switch (  esig_switch  ) 

{ 

case  1: 

retCode  -  esprocess_switch (  0x0001,  messageCount  ); 
break; 

case  2: 

retCode  -  esprocess_8witch(  0x0002,  messageCount  ); 
break; 

case  3: 

retCode  -  esprocess_switch(  0x0003,  messageCount  ); 
break; 

case  4 : 

retCode  ••  esprocess_switch (  0x0004,  messageCount  ); 
break; 

case  5: 

retCode  -  esprocess_switch (  0x0005,  messageCount  ); 
break ; 

case  €: 

retCode  -  esprocess_switch (  0x0006,  messageCount  ); 
break ; 

case  7; 

retCode  -  esprocess_switch (  0x0007,  messageCount  ); 


break; 


case  8: 

retCode  -  esprocess_switch(  0x0008,  messageCount  ); 
break; 

case  9: 

retCode  -  esprocess_switch{  0x0009,  messageCount  ); 
break; 

case  10: 

retCode  -  esprocess_switch(  OxOOOa,  messageCount  ); 
break; 

case  11: 

retCode  ■>  esprocess_switch(  0x0030,  messageCount  ); 
break; 

case  12: 

retCode  -  esprocess_switch (  0x0031,  messageCount  ); 
break; 

case  13: 

retCode  -  esprocess_switch (  0x0034,  messageCount  ); 
break; 

default :  break; 

} 

return  retCode; 

} 


/*  Function  esenable  */ 
/*  */ 
/*  PARAMETERS:  */ 
/*  esig_switch  -  the  ntunber  of  the  switch  to  be  enabled.  */ 
/*  messageCount  -  sequence  number  of  this  message  */ 
/*  */ 
/*  Process:  */ 
/*  Routine  for  enabling  switches.  */ 
/*  Currently  the  switches  are  defined  as  follows:  */ 
/*  1  —  storm  */ 
/*  2  —  ground  fog  */ 
/*  3  --  patchy  ground  fog  */ 
/*  4  —  scudded  clouds  */ 
/*  5  —  clouds  */ 
/*  6  —  rain  */ 
/*  7  —  lightning  */ 
/*  8  —  light  strings  displayed  with  random/modeled  intensity  */ 
/*  9  —  own- ship  wing  tip  strobe  */ 
/*  10  —  own-ship  anti-collision  beacon  */ 
/*  11  —  height  2d>ove  terrain  */ 
/*  12  —  collision  detection  */ 
/*  13  —  collision  detection  indicator  */ 
/*  */ 
/*  Returns:  */ 
/*  int  -  success  —  0,  failure  !-  0;  */ 
/*  */ 


/*★**♦*♦**♦***********♦♦*♦**************♦♦♦**♦♦**************♦****************/ 
int  esenable (  int  esig_switch,  long  messageCount  ) 

( 

int  retCode  -  0; 

switch (  esig_switch  ) 

{ 

case  1: 

retCode  -  esprocess_switch(  0x8001,  messageCount  ); 
break ; 

case  2: 

retCode  -  esprocess_switch (  0x8002,  messageCount  ); 
break; 


case 

3: 

retCode 

brealc; 

case 

4: 

retCode 

break; 

case 

5: 

retCode 

break; 

case 

6 : 

retCode 

break; 

case 

7; 

retCode 

break; 

case 

8: 

retCode 

break; 

case 

9: 

retCode 

break; 

case 

10 

retCode 

break; 

case 

11 

retCode 

break; 

case 

12 

retCode 

break; 

case 

13 

• 

• 

retCode 

break; 

default 

:  break; 

esprocess_switch ( 
esprocess_switch ( 
esprocess_switch ( 
esprocess_switch ( 
esprocess_switch ( 
esprocess_switch ( 
esprocess_switch ( 
esprocess_switch ( 
esprocess_switch ( 
esprocess_switch ( 
esprocess_switch ( 


0x8003,  messageCount 
0x8004,  messageCount 
0x8005,  messageCount 
0x8006,  messageCount 
0x8007,  messageCount 
0x8008,  messageCount 
0x8009,  messageCount 
0x800a,  messageCount 
0x8030,  messageCount 
0x8031,  messageCount 
0x8034,  messageCount 


)  ; 

)  ; 


); 


)  ; 


); 


)  ; 


); 


); 


); 


)  ; 


); 


return  ret Code; 

} 

/  it  *********************  ********  1fk*****it**-k**it  ************  it  *******  J 


/*  Function  esgfog  */ 
/*  */ 
/*  PARAMETERS:  ★/ 
/*  top  -  height  of  ground  fog  (max  6.2  mi.).  */ 
/*  messageCount  -  sequence  number  of  this  message  */ 
/★  *! 
/*  Process;  */ 
/*  Program  to  set  the  height  of  ground  fog  (max  6.2  mi.).  */ 
/★  */ 
/*  Returns:  */ 
f*  int  -  success  —  0,  failure  !-  0;  */ 
/*  */ 


/**********************************  ***it  **************  ****1,**i[**i,1,**  it*  *********/ 

int  esgfog (  signed  int  top,  long  messageCount  ) 

{ 

struct  gfog_struct  *gfog; 

int  retCode  ■  0,  size  “  sizeof (  gfog_struct  ); 

gfog  <■  (struct  gfog_struct  *) calloc (1, sizeof (struct  gf og_struct ) ) ; 

gfog->hostmessage  -  messageCount; 

gfog->hostopcode  -  0; 

gfog->opcode  -  0x0044; 

gfog->top  -  top; 

gfog->endOfData  -  0; 


retCode  *•  TransmitPac)cet  (  gfog,  size,  dest,  size  ); 


T 


free (  gf og  ) ; 
return  retCode; 

} 


/*  Function  eshatpt  */ 
/*  */ 
/*  PARAMETERS:  */ 
/*  number  -  height  above  terrain  testpoint  number  (0-31,  255  to  clear) .  */ 
/*  X  -  X  offset.  */ 
/*  y  -  y  offset.  */ 
/*  z  -  z  offset.  */ 
/*  messageCount  -  sequence  number  of  this  message  */ 
/*  */ 
/*  Process:  */ 
/*  Program  to  implement  height  above  terrain  test  points.  */ 
/*  Corresponds  to  the  ESIG  HAT  function.  */ 
/★  */ 
/*  Returns:  */ 
/*  int  -  success  —  0,  failure  !-  0;  */ 
/*  */ 


int  eshatpt (  int  number,  signed  long  x,  signed  long  y,  signed  long  z, 
long  messageCount  ) 

{ 

struct  hatpt_struct  *hatpt; 

int  retCode  «•  0,  size  «  sizeof  (  hatpt_struct  ),  *tmp; 

hatpt  “  (struct  hatpt_struct  *) calloc (1, sizeof (struct  hatpt_struct) ) ; 

hatpt->hostmessage  -  messageCount; 

hatpt->hostopcode  -  0; 

hatpt->opcode  -  0x0032; 

hatpt->number  ••  number; 

X  *«  512;  y  512;  z  512;  /*  scale  x,y, z  */ 

tit^j  «  (int  *)&x; 

hatpt->high_x  =  tmp[l]; 

hatpt->low_x  -  tmpio]; 

tn5>  “  (int  *)&y; 

hatpt->high_y  -  tmp(l]; 

hatpt->low_y  -  tmpiO]; 

tmp  -  (int  *)&z; 

hatpt->high_z  -  tmp[l]; 

hatpt->low_z  -  tmpiO]; 

hatpt ->endOf Data  -  0; 

retCode  -  TransmitPacJcet  (  hatpt,  size,  dest,  size  ); 
free (  hatpt  ) ; 
return  retCode; 

1 

/***★****★**********************************************★♦************★*****★*/ 


/*  Function  eshorizon  */ 
/*  */ 
/*  PARAMETERS:  .  */ 
/*  brightness  -  horizon  brightness  (0-5) .  */ 
/*  directional  -  enable/disable  horizon  direction  settable  facility.  */ 
/*  heading  -  horizon  heading  (0-360  degrees) .  */ 
/*  messageCount  -  sequence  number  of  this  message  */ 
/*  */ 
/*  Process;  */ 
/*  Program  to  set  horizon  brightness  and  heading.  Heading  will  be  set  if  */ 
/*  the  directional  flag  is  set.  */ 


/*  Corresponds  to  some  of  the  ESIG  SET  commands.  */ 
/*  Input  for  heading  is  scaled  to  perform  as  the  ESIG  function  does  */ 
/*  */ 
/*  Returns:  */ 
/*  int  -  success  «•  0,  failure  !-  0;  */ 
/*  */ 


int  eshorizon(  int  brightness,  int  directional,  unsigned  int  heading, 
long  messageCount  ) 

{ 

struct  horizon_struct  *horizon; 

int  retCode  ■  0,  size  ■  sizeof (  horizon_struct  ); 

horizon  -  (struct  horizon_struct  *) 

calloc(l, sizeof (struct  horizon_struct) ) ; 
horizon->hostmessage  -  messageCount; 
horizon->hostopcode  -  0; 
horizon->opcode  *•  0x0011; 
horizon->directional  =  directional; 
horizon->brightness  -  brightness; 
horizon->heading  -  heading*182.04; 
horizon->endOfData  -  0; 

retCode  -  TransmitPacket (  horizon,  size,  dest,  size  ); 
free(  horizon  ); 
return  retCode; 

} 

!  -k -kit -kit -kit  If -kit -kit -k-k -kit*  it-kic  it -k-k  it -k-k* -kit -k  ■kick -k  It  if -kit  It -k-k -kick -k-k-k-k -kit  It -kit  ic-k  hit  1c* -kick* -kit -kit-klclt ! 


/*  Function  esinstructor  */ 
/*  */ 
/*  PARAMETERS:  */ 
/*  channel  -  port  instructor  monitor  is  on.  */ 
/*  messageCount  -  sequence  number  of  this  message  */ 
/*  */ 
/*  Process:  */ 
/*  Program  to  set  the  instructor  monitor  channel.  */ 
/*  Corresponds  to  the  ESIG  SET  function.  */ 
/*  */ 
/*  Returns;  */ 
/*  int  -  success  “  0,  failure  !-  0;  */ 
/*  */ 


^  ************  *************************ifr'ir**************************************y 

int  esinstructor (  int  channel,  long  messageCount  ) 

{ 

struct  instructor_struct  *instructor; 

int  retCode  "0,  size  -  sizeof (  instructor  struct  ); 


instructor  -  (struct  instructor_struct  *) 

calloc (1, sizeof (struct  instructor_struct) ) ; 
instructor->hostmessage  -  messageCount; 
instructor->hostopcode  -  0; 
instructor->opcode  -  0x0050; 
instructor->channel  -  channel; 
instructor->endOfData  -  0; 

retCode  -  TransmitPacket (  instructor,  size,  dest,  size  ); 
free(  instructor  ); 
return  retCode; 

} 


/*★★**★★**★★★*★*★★★**★★★**★*★★*★★★★**★***★★★*★****★★★★★*★★★****★★**★****★***■*■★/ 


/*  Function  eslight  */ 
/*  */ 
/*  PTOU^METERS:  */ 
/*  number  -  light  switch  number  (0-63) .  */ 
/*  intensity  -  intensity  of  light  (0-5) .  */ 
/*  messageCount  -  seq[uence  number  of  this  message  */ 
/*  */ 
/*  Process;  */ 
/*  Program  to  set  the  intensity  of  light  switches.  */ 
/*  Corresponds  to  some  of  the  ESIG  SWITCH  functions.  */ 
/*  */ 
/*  Returns:  */ 
/*  int  -  success  «-  0,  failure  !-  0;  */ 
/*  */ 


/***★♦******************* ★★***★** *★★*****★*★♦**********★★★★*★*★*★★****★******★/ 
int  eslight (  int  n\unber,  int  intensity,  long  messageCount  ) 

{ 

struct  light_struct  * light; 

int  retCode  -  0,  size  -  sizeof  (  light_struct  ) ; 


light  =  (struct  light_struct  *) calloc (1, sizeof (struct  light_struct) ) ; 

light->hostmessage  -  messageCount; 

light->hostopcode  =0; 

light->opcode  -  0x0012; 

light->number  -  number; 

light->intensity  -  intensity; 

light ->endOfData  -  0; 

retCode  -  TransmitPaclcet  (  light,  size,  dest,  size  ); 
free (  light  ) ; 
return  retCode; 

} 

/*★*******★**★*********************************♦*****************★**★*********/ 


/*  Function  eslobe  */ 
/*  */ 
/*  PARAMETERS:  */ 
/*  lights  -  number  corresponding  to  which  lights  should  be  turned  on.  */ 
/*  (0  -  no  lights,  127  -  all) .  */ 
/*  messageCount  -  sequence  number  of  this  message  */ 
/*  */ 
/*  Process;  */ 
/*  Program  to  set  aircraft  landing  lights.  */ 
/*  Corresponds  to  the  ESIG  LOBE  function,  although  the  user  must  give  the  */ 
/*  number  corresponding  to  the  bits  he  would  set  using  the  LOBE  command.  */ 
/*  */ 
/*  Returns;  */ 
/*  int  -  success  —  0,  failure  !-  0;  */ 
/*  */ 


/  ************************************  ***********  / 

int  eslobe (  int  lights,  long  messageCount  ) 

( 

struct  lobe_struct  *lobe; 

int  retCode”’-  0,  size  -  sizeof  (  lobe_stroct  ); 

lobe  -  (struct  lobe_struct  *) calloc (1, sizeof (struct  lobe_struct ) ) ; 

lobe->hostmessage  -  messageCount; 

lobe->hostopcode  -  0; 

lobe->opcode  -  0x0013; 

lobe->lights  -  lights; 

lobe->endOfData  -  0; 


retCode  -  TransmitPacket (  lobe,  size,  dest,  size  ); 


free (  lobe  ) ; 
return  ret Code; 

} 

/***********************************************************★*****************/ 


/*  Function  esmodel  */ 
/*  */ 
/*  PARAMETERS:  */ 
/*  colocate  -  colocatable  parcel  select  ntunber  to  be  used  (0-7) .  */ 
/*  parcel  -  parcel  number  in  the  database  to  be  used.  */ 
/*  messageCount  -  sequence  number  of  this  message  */ 
/*  */ 
/*  Process:  */ 
/*  Program  to  allow  user  to  load  a  database.  */ 
/*  Corresponds  to  the  ESIG  MODEL  function.  */ 
/*  */ 
/*  Returns;  */ 
/*  int  -  success  —  0,  failure  !-  0;  */ 
/*  */ 


/★******★ ★*********★*****★**★**************************■***************★*****★*/ 
int  esmodel (  int  colocate,  int  parcel,  long  messageCount  ) 

{ 

struct  model_struct  *model; 

int  retCode  •=  0,  size  -  sizeof  (  model  struct  ); 


model  -  (struct  model_struct  *) calloc (1, sizeof (struct  model_struct) ) / 

model->hostmessage  -  messageCount; 

model->hostopcode  -  0; 

model->opcode  *  0x0014; 

model->colocate  -  colocate; 

model->parcel  -  parcel; 

model->endOfData  -  0; 

retCode  -  TransmitPacket (  model,  size,  dest,  size  ); 
free (  model  ) ; 
return  retCode; 

} 

/*★★★*★★★★*★★★★★★**★★★★*★★*★*★★*★★*♦★★★★★★*★***★*★*★****★★**★*★*★**★★★*★*★****/ 


/*  Function  espolygon  */ 
/*  */ 
/*  PARAMETERS:  */ 
/*  number  -  polygon  switch  number  (0-63) .  */ 
/*  intensity  -  intensity  value  (0-5) .  */ 
/*  messageCount  -  sequence  number  of  this  message  */ 
/*  */ 
/*  Process:  */ 
/*  Program  to  set  the  polygon  intensity.  */ 
/*  Corresponds  to  some  of  the  ESIG  SWITCH  functions.  */ 
/*  */ 
/♦  Returns:  */ 
/*  int  -  success  —  0,  failure  !-  0;  */ 
/*  */ 


/******★***♦***★♦♦*★*★**♦**********♦****************************************★*/ 
int  espolygon (  int  number,  int  intensity,  long  messageCount  ) 

{ 

struct  polygon_struct  *polygon; 

int  retCode  -  0,  size  -  sizeof (  polygon_struct  ); 


polygon  -  (struct  polygon_struct  *) 

calloc (1, sizeof (struct  polygon_struct ) ) ; 
polygon->hostmessage  «  messageCount; 
polygon->hostopcode  -  0; 
polygon->opcode  -  0x0019; 
polygon->nxainber  -  number; 
polygon->intensity  *  intensity; 
polygon->endOfData  -  0; 

retCode  -  TransmitPacket (  polygon,  size,  dest,  size  ); 
free (  polygon  ) ; 
return  retCode; 

} 

/★**★★*★★*★★*★**★★★*★**★★★★★★★★*★*★★***★*★★★**★*★★*★★**★★*★*★★*★★★*★★**★★★★**★/ 


/*  Function  esrvr  */ 
/*  */ 
/*  PARAMETERS:  */ 
/*  range  -  runway  visual  range  in  feet.  */ 
I*  messageCount  -  sequence  number  of  this  message  */ 
/*  */ 
/*  Process:  */ 
/*  Program  to  set  the  runway  visibility  range.  */ 
/*  Corresponds  to  the  ESIG  GFOG  command.  No  scaling  done  yet.  */ 
/*  Input  scaled  to  correspond  to  ESIG  function.  */ 
/*  */ 
/*  Returns:  */ 
/*  int  -  success  —  0,  failure  !-  0;  */ 
/*  */ 


I  -k-k-k -kit -kit -kit  It -k-k-k-k -kit -k-k-k-k-k -kit -kit  hie  It -kit -kit  ifkifkifklfk  It -kick  hlfk-k -kit  It  ■kick -klc  It  It  1c  It  It -kit  It  ■k-k-kic  It  ■klftfk  it  it -k  ! 

int  esrvr (  long  range,  long  messageCount  ) 

{ 

struct  rvr_struct  *rvr; 

int  retCode  -  0,  size  -  sizeof (  rvr  struct  ); 


rvr  -■  (struct  rvr_struct  *) calloc (1, sizeof (struct  rvr_struct) ) ; 

rvr->hostmessage  »  messageCount; 

rvr->hostopcode  -0; 

rvr->opcode  -  0x0010; 

rvr->range  -  range/4; 

rvr->endOfData  -  0; 

retCode  -  TransmitPacket (  rvr,  size,  dest,  size  ); 
free (  rvr  ) ; 
return  retCode; 

> 


Ikkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk f 


/* 

Function  esscene 

*/ 

/* 

*/ 

/* 

PARAMETERS : 

*/ 

!* 

select  -  the 

value  of  the  scene  type  to  be  displayed. 

*/ 

!* 

messageCount 

-  sequence  number  of  this  message 

*/ 

!* 

*/ 

/* 

Process : 

*/ 

!* 

Scene  is  set 

with  parameters  corresponding  to  esig  functions: 

*/ 

!* 

0  -  SET 

NIGHT 

*/ 

!* 

1  -  SET 

DUSK 

*1 

/* 

2  -  SET 

DAY 

*/ 

/* 

*/ 

/* 

Returns : 

*/ 

success 


0,  failure  i-  0; 


/*  int  -  success  —  0,  failure  i-  0; 
/* 


*/ 

*/ 


int  esscene (  int  select,  long  messageCount  ) 

{ 

struct  scene_struct  * scene; 

int  retCode  -  0,  size  -  sizeof(  scene  struct); 


scene  -  (struct  scene_struct  *) calloc (1, sizeof (struct  scene_struct) ) ; 
scene->hostmessage  »  messageCount; 
scene->hostopcode  -  0; 

8cene->opcode  »  0x0016; 
scene->select  -  select; 
scene->endOfData  -  0; 

retCode  -  TransmitPacket (  scene,  size,  dest,  size  ); 
free (  scene  ) ; 
return  retCode; 

} 


/*  Function  essun  */ 
/*  */ 
/*  PARAMETERS:  */ 
/*  heading  -  heading  angle  for  the  sun.  */ 
/*  pitch  -  pitch  angle  for  the  sun.  *! 
!*  messageCount  -  sequence  number  of  this  message  */ 
/*  */ 
/*  Process:  */ 
/*  Program  for  setting  the  sun's  heading  and  pitch.  */ 
/*  Corresponds  to  ESIG  functions  SET  SUNK  and  SET  SUNP.  */ 
/*  Input  to  this  function  must  be  scaled  to  correspond  to  ESIG  function.  */ 
/*  */ 
/*  Returns:  */ 
/*  int  -  success  —  0,  failure  !-  0;  */ 
/*  */ 


/*********************************************************************★*******/ 
int  essun (  unsigned  int  heading,  unsigned  int  pitch,  long  messageCount  ) 

r 

struct  sun_struct  *sun; 

int  retCode  -  0,  size  -  sizeof (  sun  struct  ); 


sun  -  (struct  sun_struct  *) calloc (1, sizeof (struct  sun_struct) )  ; 

sun->hostmessage  ■■  messageCount; 

sun->hostopcode  -  0; 

sun->opcode  -  0x0043; 

sun“>heading  -  heading*182.04; 

sun->pitch  -  pitch*182.04; 

sun->endOfData  -  0; 

retCode  TransmitPacket  (  sun,  size,  dest,  size  ); 
free (  sun  ) ; 
return  retCode; 

} 

/**«★**★***«****★***★ ******★**********«*************★★******★★*★****★****'*★★**/ 


/*  Function  estraffic  */ 
/*  *! 
!*  PARAMETERS:  */ 
/*  cs  -  the  number  of  the  coordinate  system.  */ 


/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 


select 

parcel 


-  the  select  switch. 

-  the  parcel  index  (0  -  255) . 
placeable  -  0  -  local  parcel,  1  -  placeable  parcel, 
control  -  routed  and  converging  control  number. 

-  routed  and  converging  scenario  number 


scenario 


(0  -  15)  . 


messageCount  -  sequence  number  of  this  message 


Process : 

Sets  information  for  routed  or  converging  traffic 


ES_NO_INFO 
ES_LOAD_ROUTED 
ES_START_RODTED 
ES_STOP_ROUTED 
ES_UNLOAD_RODTED 
ES_LOAD_CONVERGING 
ES_S  TART_CONVERGING 
ES_STOP_CONVERGING 
ES  UNLOAD  CONVERGING 


Controls  are 

-  no  effect. 

-  Loads  information  for  routed  traffic 

-  Starts  routed  traffic 

-  Stops  routed  traffic 

-  Unloads  routed  traffic 

-  Load  info  for  converging  traffic 

-  Start  converging  traffic 

-  Stop  converging  traffic 

-  unload  info  for  converging  traffic 


Returns : 

int  -  success 


0,  failure 


0; 


*/ 

*/ 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
★  / 

*/ 

*/ 

*/ 

*/ 


^itit^ii’kiritititifirificicieicieieir'kifirit'kicicififiriciriciticiticiciciticitititit'kiticic'kic'kic'kitit'k'kiriticicieieicicieieif'kiricic'k-kic’k-k^ 


int  estraffic(  int  cs,  int  select,  int  parcel,  int  placeable,  int  control, 
int  scenario,  long  messageCount  ) 


{ 


struct  traf fic_struct  *traffic; 

int  retCode  -  0,  size  -  sizeof(  traffic  struct  ); 


traffic  -  (struct  traffic_struct  *) calloc (1, sizeof (struct  traffic_struct) ) ; 

traffic->hostmessage  -  messageCount; 

traffic->hostopcode  -  0; 

traffic->opcode  -  OxOOla; 

traffic->cs  -  cs; 

traffic->select  ■  select; 

traffic->parcel  -  parcel; 

traffic->placeable  -  placeable; 

traffic->xyz  -*7; 

traffic->control  (control«4)  scenario; 
traffic->endOfData  -  0; 

retCode  -  TransmitPaclcet  (  traffic,  size,  dest,  size  ); 
free(  traffic  ); 
return  retCode; 

} 

/*******************★*★★★★*★*★*****★*******'**********★***«********★★***★★**★★* / 


/*  Function  esviewport  */ 
/*  */ 
/*  PARAMETERS:  */ 
/*  channel  -  channel  number  (0-7) .  */ 
/*  alternate  -  enable /disable  alternate  view.  */ 
/*  X  -  X  offset.  */ 
/*  y  -  y  offset.  */ 
/*  z  -  z  offset.  */ 
/*  heading  -  heading  orientation  for  the  viewport  (-360  -  360  deg.).  */ 
/*  pitch  -  pitch  orientation  for  the  viewport  (-360  -  360  deg.).  */ 
/*  roll  -  roll  orientation  for  the  viewport  (-360  -  360  deg.).  */ 
/*  vertical  -  vertical  half  angle  of  viewport  (0.5  -  90  deg.).  */ 
/*  horizontal  -  horizontal  half  angle  of  viewport  (0.5  -  90  deg.).  */ 
/*  messageCount  -  sequence  number  of  this  message  */ 
/*  */ 
/*  Process:  */ 


/*  Program  to  define  the  viewport,  which  defines  how  the  image  will  appear*/ 


/*  on  the  display.  Corresponds  to  some  of  the  ESIG  CHANNEL  commands.  */ 
/*  Some  inputs  are  scaled  to  correspond  to  the  ESIG  function.  */ 
/*  */ 
/*  Returns:  */ 
/*  int  -  success  —  0,  failure  1-0;  */ 
/*  */ 


/**********************★*******★****★*★***************************************/ 

int  esviewport{  int  channel,  int  alternate,  long  x,  long  y,  long  z, 

unsigned  int  heading,  unsigned  int  pitch,  unsigned  int  roll, 
unpirrned  int  vertical,  unsigned  int  horizontal,  long  messageCount  ) 

{ 

struct  viewport_struct  *viewport; 
int  *tmp; 

int  retCode  -  0,  size  -  sizeof(  viewport_struct  ) ; 


viewport 

viewport 

viewport 

viewport 

viewport 

viewport 

viewport 

viewport 

viewport 

X  *-  512 

tmp  -  ( 

viewport 

viewport 

tmp  -  ( 

viewport 

viewport 

tmp  -  ( 

viewport 

viewport 

viewport 

viewport 

viewport 

viewport 

viewport 

viewport 

ret Code 


-  (struct  viewport_struct  *) 

calloc(l, sizeof (struct  viewport_struct) ) 
->hostmessage  -  messageCount; 

->hostopcode  -  0; 

->opcode  =  OxOOlb; 

->channel  -  channel; 

->alternate  -  alternate; 


7; 

/* 

use  x,y, z  mode 

*/ 

1; 

/* 

enable  extrapolation 

*/ 

7; 

/* 

enable  heading,  pitch,  and  roll 

*/ 

512;  2  *-  512; 

/* 

scale  x,y,z 

*/ 

&x; 

/* 

typecast  into  integer  (word)  size 

*/ 

->low_x  -  tmp[0]; 

->high_x  -  tmp(i]; 
int  *)  &y; 

->low__y  -  tnpIO]; 

->high_y  -  tmp[i]; 
int  *)  &z; 

->low_z  -  tmp  [ 0 ] ; 

“>high_z  -  tmp[l]; 

->heading  -  heading*182.04; 
->pitch  -  pitch*182.04; 

->roll  -  roll*182.04; 

->vertical  -  vertical*182 .04; 
->horizontal  -  horizontal*182 .04; 
->endOfData  -  0; 


retCode  -  TransmitPacket (  viewport,  size,  dest,  size  ); 
free {  viewport  ) ; 
return  retCode; 

) 

/★***♦* ****** ****************************************************** ****** *★*★*/ 
/*  Function  esvisibility  */ 

/*  */ 

/*  PARAMETERS:  */ 

/*  range  -  the  range  in  feet  of  visibility  (max  49.6  miles).  */ 

/*  messageCount  -  sequence  number  of  this  message  */ 

/*  */ 

/*  Process:  */ 

/*  Program  to  simulate  the  ESIG  VISIBILITY  command.  */ 

/*  Input  scaled  to  correspond  to  ESIG  function  (in  FEET) .  */ 

/*  */ 

/*  Returns:  */ 

/*  int  -  success  —  0,  failure  !-  0;  *! 


0,  failure  !-  0; 


Z*****************************************************************************/ 

int  esvisibility (  long  range,  long  messageCount  ) 

{ 

struct  visibility_struct  *visibility; 

int  retCode  »  0,  size  -  sizeof(  visibility_struct  )/ 


visibility  -  {struct  visibility_struct  *) 

calloc (1, sizeof (struct  visibility_struct) ) ; 
visibility->hostmessage  -  messageCount; 
visibility->hostopcode  -  0; 
visibility->opcode  -  OxOOOF; 
visibility->range  ••  range/ 4; 
visibility->endOfData  -  0; 

retCode  -  TransmitPacket (  visibility,  size,  dest,  size  ); 
free(  visibility  ); 
return  retCode; 

} 

j 

/*  Object  Functions:  PRIVATE  */ 

j  ! 


/*  Function  esprocess_switch  */ 
/*  */ 
/*  PARAMETERS:  */ 
/*  opcode  -  the  opcode  of  the  switch  to  be  enabled/disabled.  */ 
/*  messageCount  -  sequence  number  of  this  message  */ 
/*  */ 
/*  Process:  */ 
/*  Routine  to  build  the  enable /disable  packet  using  information  from  the  */ 
/*  enable/disable  routines.  */ 
/*  */ 
/*  Returns:  */ 
/*  int  -  success  0,  failure  !•»  0;  */ 
/*  */ 


int  esprocess_switch (  int  opcode,  long  messageCount  ) 
{ 

struct  switch_struct  *esswitch; 

int  retCode  -  0,  size  •=  sizeof  (  switch  struct  ); 


esswitch  -  (struct  switch_struct  *) 

calloc (1, sizeof (struct  switch_struct) ) ; 
esswitch->hostmessage  -  messageCount; 
esswitch->hostopcode  -  0; 
esswitch->opcode  -  opcode; 
esswitch->endOfData  -  0; 

retCode  *  TransmitPacket (  esswitch,  size,  dest,  size  ); 
free(  esswitch  ); 
return  retCode; 

) 


It  esigcom.h 

♦define  NEED_PACKET_DEFINITIONS 

♦include  "net.h" 

♦include  "3com.h" 

♦include  "packet. h” 

fifndef  _ ^cplusplus 

♦error  This  program  requires  compilation  as  C++. 

♦endif 

♦ifndef  _LARGE _ 

♦error  This  program  requires  Large  memory  model. 

♦endif 

♦ifndef  _ ^ESIGCOM 

♦define  _ ^ESIGCOM 

//  constants  - 

//  structs,  classes,  typedefs  - 

struct  ambient_struct 

{ 

long  hostmessage; 
int  host opcode; 
int  opcode; 
int  ambience; 
unsigned  int  endOfData; 

}; 

struct  anim_struct 

{ 

long  hostmessage; 
int  host opcode; 
int  opcode; 
unsigned  char  select; 
unsigned  char  cs; 
unsigned  char  parcel; 
unsigned  char  placeaJsle; 
unsigned  char  xyz; 
unsigned  char  control; 

int  dummyl;  /*  dumrays  are  introduced  to  give  the  structure  */ 

int  duniny2;  /*  the  proper  length  of  fourteen  words  */ 

int  dummy3; 

int  d\immy4; 

int  dummyS; 

int  duimny6; 

int  dummy?; 

int  dummyS; 

int  dummy 9; 

int  dummyl  0; 

unsigned  int  endOfData; 

); 


struct  channel_struct 

{ 

long  hostmessage; 
int  hostopcode; 
int  opcode; 
char  dummy; 
char  number; 
char  displayjb; 
char  display_a; 
char  color; 
char  viewport; 


unsigned  int  endOfData; 


}; 

struct  cloud_struct 

{ 

long  hostmessage; 

Int  host opcode; 
int  top_opcode; 
signed  int  top; 
int  bot_opcode; 
signed  int  bottom; 
unsigned  int  endOfData; 

}; 

struct  cold_struct 

{ 

long  hostmessage; 
int  host opcode; 
int  opcode; 
int  color; 
char  automatic; 
char  valid; 

unsigned  int  endOfData; 


struct  coldpt_struct 
{ 

long  hostmessage; 

int  host opcode; 

int  opcode; 

unsigned  char  number; 

char  dummy; 

int  high_x; 

int  low__x; 

int  high_y; 

int  low_y; 

int  high_z; 

int  low_z; 

unsigned  int  endOfData; 

}; 

struct  cs_struct 

{ 

long  hostmessage; 
int  hostopcode; 
int  opcode; 
unsigned  char  select; 
unsigned  char  cs; 
unsigned  char  index; 
unsigned  char  type; 
unsigned  char  xyz; 
unsigned  char  control ; 
unsigned  char  el; 
unsigned  char  hpr; 
int  high_x; 
int  low_x; 
int  high_y; 
int  lovr_y; 
int  high_z ; 
int  low_z ; 

unsigned  int  heading; 
unsigned  int  pitch; 
unsigned  int  roll; 
unsigned  int  endOfData; 

}; 


struct  switch_struct 
{ 

long  hostmessage; 
int  hostopcode; 
int  opcode; 

unsigned  int  endOfData; 

}; 


struct  gfog_struct 
t 

long  hostmessage; 
int  hostopcode; 
int  opcode; 
signed  int  top; 
unsigned  int  endOfData; 

}; 


struct  hatpt_struct 
{ 

long  hostmessage; 
int  hostopcode; 
int  opcode; 
char  number; 
char  dummy; 
int  high_x; 
int  low_x; 
int  high_y; 
int  low_y; 
int  high_2; 
int  low_z ; 

unsigned  int  endOfData; 
In¬ 


struct  horizon_struct 

{ 

long  hostmessage; 
int  hostopcode; 
int  opcode; 
char  directional; 
char  brightness; 
unsigned  int  heading; 
unsigned  int  endOfData; 

}; 


struct  instructor_struct 
{ 

long  hostmessage; 
int  hostopcode; 
int  opcode; 
char  channel; 
char  dummy; 

unsigned  int  endOfData; 

}; 


struct  light_struct 

{ 

long  hostmessage; 

int  hostopcode; 

int  opcode; 

char  intensity; 

char  number; 

unsigned  int  endOfData; 

}; 


struct  lobe  struct 


{ 


long  hostmessage; 
int  hostopcode; 
int  opcode; 
char  lights; 
char  dummy; 

unsigned  int  endOfData; 


struct  ir.odel_struct 

long  hostmessage; 
int  hostopcode; 
int  opcode ; 
char  parcel; 
char  colocate; 
unsigned  int  endOfData; 

}; 


struct  polygon_struct 

{ 

long  hostmessage; 

int  hostopcode; 

int  opcode; 

char  intensity; 

char  number; 

unsigned  int  endOfData; 

}; 


struct  rvr_struct 
{ 

long  hostmessage; 
int  hostopcode; 
int  opcode; 
unsigned  int  range; 
unsigned  int  endOfData; 
In¬ 


struct  scene_struct 
{ 

long  hostmessage; 
int  hostopcode; 
int  opcode; 
unsigned  char  select; 

unsigned  char  dvimmy;  /*  used  for  word  alignment  */ 
unsigned  int  endOfData; 

}; 


struct  sun_8truct 
{ 

long  hostmessage; 
int  hostopcode; 
int  opcode; 
unsigned  int  heading; 
unsigned  int  pitch; 
unsigned  int  endOfData; 

}; 


struct  traf fic_struct 

{ 

long  hostmessage; 
int  hostopcode; 
int  opcode; 
unsigned  char  select; 
unsigned  char  cs; 
unsigned  char  parcel; 


unsigned  char  placeable; 
unsigned  char  xyz; 
unsigned  char  control; 

int  dummyl;  /*  diuiunys  are  introduced  to  give  the  structure  */ 

int  dunimy2;  /*  the  proper  length  of  fourteen  words  */ 

int  duitimyS; 

int  duinmy4; 

int  duinmyS; 

int  dummy 6; 

int  d\immy7; 

int  dummy 8; 

int  dummy 9; 

int  diimmylO; 

unsigned  int  endOfData; 

In¬ 
struct  viewport_struct 
{ 

long  hostmessage; 
int  host opcode; 
int  opcode; 

unsigned  char  alternate; 
unsigned  char  channel; 
unsigned  char  xyz; 
unsigned  char  dummy; 
unsigned  char  el; 
unsigned  char  hpr; 
int  high_x; 
int  low_x; 
int  high_y; 
int  low_y; 
int  high_z; 
int  low_z ; 

unsigned  int  heading; 
unsigned  int  pitch; 
unsigned  int  roll; 
unsigned  int  vertical; 
unsigned  int  horizontal; 
unsigned  int  endOfData; 

}; 

struct  visibility_struct 
{ 

long  hostmessage; 
int  hostopcode; 
int  opcode; 
unsigned  int  range; 
unsigned  int  endOfData; 

}; 

//  macros  and  inline  functions  - 


/*  Function  Prototypes  */ 

/♦ - */ 

int  esambient (  int  scene,  int  ambience,  long  messageCount  ) ; 

int  esanimation(  int  cs,  int  select,  int  parcel,  int  placeable,  int  control, 

int  sec[uence,  long  messageCount  ); 
int  eschannel (  int  number,  int  display_a,  int  display_b, 

int  viewport,  int  color,  long  messageCount  ) ; 
int  escloud(  long  top,  long  bottom,  long  messageCount  ); 
int  escold(  int  color,  int  valid,  int  automatic,  long  messageCount  ); 
int  escoldpt(  int  number,  long  x,  long  y,  long  z,  long  messageCount  ); 
int  escs(  int  csnum,  int  select,  long  x,  long  y,  long  z,  unsigned  int  heading, 
unsigned  int  pitch,  unsigned  int  roll,  long  messageCount  ) ; 


int  esdisable  (  int  esig_switch,  long  messageCount  ) / 
int  esenable(  int  esig_switch,  long  messageCount  ); 
int  esg£og(  signed  int  top,  long  messageCount  ) ; 

int  eshatpt  (  int  number,  signed  long  x,  signed  long  y,  signed  long  z, 
long  messageCount  ) ; 

int  eshorizon(  int  brightness,  int  directional,  unsigned  int  heading, 
long  messageCount  ) ; 

int  esinstructor (  int  channel,  long  messageCount  ); 

int  eslight  (  int  number,  int  intensity,  long  messageCount  ); 

int  eslobe(  int  lights,  long  messageCount  ); 

int  esmodel {  int  colocate,  int  parcel,  long  messageCount  ) ; 

int  espolygon(  int  number,  int  intensity,  long  messageCount  ); 

int  esrvr {  long  range,  long  messageCount  ) ; 

int  esscene(  int  select,  long  messageCount  ) ; 

int  essun(  unsigned  int  heading,  unsigned  int  pitch,  long  messageCount  ); 
int  estraffic{  int  cs,  int  select,  int  parcel,  int  placeable,  int  control, 
int  scenario,  long  messageCount  ) ; 
int  esviewport (  int  channel,  int  alternate,  long  x,  long  y,  long  z, 

unsigned  int  heading,  unsigned  int  pitch,  unsigned  int  roll, 
unsigned  int  vertical,  unsigned  int  horizontal,  long  messageCount  ) 
int  esvisibility  {  long  range,  long  messageCount  ); 
int  esprocess_switch (  int  opcode,  long  messageCount  ) ; 


//  variable  externs  - 

extern  irt  maxTxLength;  //  Maximum  packet  length  transmitted 

#endif  //  ESIGCOM 


Appendix  H: 

Suxmxiary  of  Results  of  HTD  Experiments 


Head'Tracked  Cupola  Display  Pieluninary  Results 

The  results  of  tiiis  evaluation  with  novice  subjects  indicated  that  there 
were  no  significant  differences  in  performance  or  preferences  between  the 
two  simulations  (Simnet  vs  HTD).  It  appears  that  for  the  selected  tasks  (^get 
acquisition  and  navigation),  subjects  performed  equally  well  (or  equally 
poorly)  in  both  simulations.  There  are  several  potential  explanations  for 
these  findings:  1)  the  two  simulations  may  be  close  enough  in  design  that 
performance  difierences  will  not  be  seen  for  most  tasks,  2)  the  tasks  were 
simply  too  easy  to  determine  if  there  were  performance  differences,  and  3) 
there  were  tcx)  many  problems  with  experimental  control  (e.g.,  too  many 
disturbances,  equipment  failures,  etc)  to  keep  variability  low  enough  to 
observe  any  differences. 

In  my  opinion,  explanations  one  and  two  are  probably  both  correct. 
From  what  I  have  observed  and  heard  about  tank  scenarios,  in  most  cases 
there  probably  would  be  no  differences  in  performance  between  the  two 
simulations.  For  example,  the  navigation  task  required  infrecpient  head 
turning  or  cupola  rotation  to  find  a  checkpoint.  The  tank  commander  (TC) 
was  only  required  to  tell  the  driver  to  turn,  and  the  TC  could  easily  determine 
his  surrounclings  while  leaking  straight  ahead.  I  believe  that  Hhe  results  from 
most  navigation  tasks  would  Tx  similar.  Concerning  target  acquisition,  I  have 
heard  that  in  most  situations  the  tank  would  be  in  a  defensive  position,  or  it 
would  attack  in  groups,  with  each  group  focusing  on  a  specific  sector.  In  ti\ese 
situations,  speed  of  acquisition  wotdd  likely  be  less  important.  If  this  is  true, 
then  there  would  be  little  exp)ectation  for  differences  in  performance  between 
the  two  simulations,  which  was  observed  in  this  study. 

However,  if  speed  of  target  acquisition  is  important,  then  I  predict  that 
the  HTD  would  provide  superior  performance.  The  target  acquisition  task  in 
this  study  appeared  to  be  too  easy  to  elicit  performance  difierences  between 
the  simulations,  even  though  the  20  targets  were  placed  in  difficult  locations 
(hence,  the  low  acquisition  mean  of  11.75). 

I  also  believe  that  the  lack  of  experimental  control  concerning  demos, 
equipment  failures,  etc,  was  a  problem.  However,  fiiese  factors  probably 
occurred  equally  over  the  experimental  sessions,  so  I  doubt  if  they  influenced 
the  means,  except  possibly  to  reduce  them  across  the  board.  These  problems 
could  have  increased  the  variability,  which  would  require  greater  difierences 
between  the  simulations  to  show  an  effect.  In  addition,  a  larger  sample  size 
was  needed  in  order  to  increase  the  power  to  detect  group  difierences. 

In  conclusion,  I  would  recommend  continuing  the  evaluation  based 
on  the  importance  of  target  acquisition  speed  versus  the  cost/benefits  of 
cemtinuing.  If  tank  training  does  not  focus  on  speed  of  target  acquisition, 
then  the  Simnet  is  probably  adequate  for  training,  and  continuing  the  study 
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would  not  be  cost  effective.  However,  if  speed  of  acquisition  is  very 
important,  then  we  probably  should  continue  with  experienced  personnel. 

If  we  do  continue,  I  have  some  further  recommendations.  We  should 
drop  the  navigation  task,  because  I  doubt  if  there  are  any  scenarios  in  which 
the  two  simulations  would  show  differences.  The  navigation  task  also 
required  more  time  to  complete  than  the  target  acquisition  task.  Dropping 
the  navigation  task  would  allow  us  to  nm  more  subjects  in  a  shorter  amount 
of  time. 

As  you  suggested,  Ernie,  I  would  run  die  target  acquisition  task  over  a 
shorter  route  but  with  a  much  higher  target  density.  This  would  require  that 
the  TC  scan  his  environment  faster,  whi^  may  r^ult  in  performance 
differences  between  the  HTD  and  Simnet.  I  would  also  have  the  gunner-tank 
commander  relationship  more  involved  by  having  the  gunner  actually  try  to 
shoot  the  targets. 

Rnally,  we  need  to  run  this  experiment  widi  better  control.  I  would 
like  to  have  access  to  two  students  who  are  available  to  run  the  experiment  at 
any  time,  not  just  when  they  can  ff  t  it  into  their  schedules,  and  I  want  to  be 
able  to  limit  people  from  interrupting  the  study.  I  realize  that  these  requests 
may  be  difficult  to  accomplish. 
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iaccuxacy  between  checkpoints  1-2) 


utM  'i  ■  . . .  V^uldsiti  1  > 

SIM/COURSE  1 

SIM /COURSE  2 

HTD /COURSE  1 

HTD/COURSE  2 

1  m 

200  m 

1  m 

50.5 

(R  1-400) 

(R:  1-700) 

(R:  1-1600) 

(R:  1-300) 

Mean:  67.5 

Mecin:  266.8 

Mean:  284.0 

Mean:  100.5 

MEDIANS  BY  SIMULATION 

SIMNET 

HTD 

50.5  m 

1  m 

(R:  1-700) 

(R:  1-1600) 

Mean:  167.2 

Mean:  192.3 

MEDIANS  BY  COURSE 

COURSE  1 

COURSE  2 

1  m 

150  m 

(R:  1-1600) 

(R:  1-700) 

Mean:  175.8 

Mean:  183.7 

Preliminary  Results  -  Tenain  Reasoning  (N=12) 

Itime  between  checkpoints  2>3) 

MEDIANS  BY  SIMULATION  AND  COURSE 

SlM/COURSEl  SIM/COURSE  2  HTD /COURSE  1  HTD/COURSE2 

253  sec.  268.5  sec.  238  sec  221.5  sec. 

(R  206-999)  (R  209-338)  (R 173-999)  (R 180-312) 

MEDIANS  BY  SIMULATION 

SIMNET _ HTD 

268.5  225.5 

(R  206-999)  (R  173-999) 


MEDIANS  BY  COURSE 


(R  173-999)  (R  180-338) 


iaccuiaqr  between  checkpoints  2*3) 


SIM/COURSE 

600  m 
(R  1-9999) 


MEDIANS  BY  SIMULATION  AND  COURSE 

SIM/COURSE  2  HTD/COURSE  1  HTD/COURSE  2 

50.5  m  650  m  550  m 

(R  1-200)  (R  1-9999)  (R  200-1700) 


MEDIANS  BY 


SIMNET 


JLATION 

HTD 


150  m 
(R  1-9999) 


550  m 
(R  1-9999) 


MEDIANS  BY  COURSE 
COURSE  1 _ COURSE  2 


600  m 
(R:  1-9999) 


200  m 
(R  1-1700) 


SIM/COURSE  1  SIM/COURSE  2  HTD /COURSE  1  HTD/COURSE2 

12.50  11.00  12.67  10.83 

(R:  10-14)  (R:8-15)  (R:9-17)  (R:  8-15) 


SIMNET _ HTD 

11.75  11.75 

(R:  8-15)  (R:  8-17) 


12.59 
(R:  9-17) 


10.92 

(R:8-15) 


Head-Tracked  Cupola  Display  Research 

Preliminary  Results  -  Preference  Means  (N=13) 

Scale:  Ssimpossible,  4sdifficult  3=moderate,  Zseasy,  livery  easy 


_ QUESTION _ SIMNET  HTD 

1. )  Ability  to  perceive  locations  accurately  3.11  2.89 

2. )  Ability  to  identify  surroundings  3.00  3.00 

3. )  Ability  to  maintain  orientation  and  not  3.0  2.67 

get  lost 

4. )  Ability  to  acquire  targets  without  time  2.67  2.67 

constraints 

5. )  Ability  to  acquire  targets  under  time  pressure  3.44  3.00 

None  of  these  results  were  statistically  significant 

6. )  Which  simulation  was  more  difficult? 

SIMNET*  6 
HTD*  5 
SAME*  2 


7. )  Were  there  any  features  about  either  simulation  that  you  especially  liked 

or  disliked? 

8. )  Which  simulation  do  you  think  would  be  the  most  beneficial  for  training? 

SIMNET*  8 
HTD*  4 
SAME*  1 


9. )  Which  simulation  do  you  prefer? 

SIMNET*  7 
HTD*  5 
SAME*  1 

10. )  Do  you  think  that  your  performance  and  preferences  would  have 
changed  if  the  head-tracked  display  did  not  have  popping/flickering? 


Yes  =  11  No  *2 


Appendix  I 

Computations  Concerning  EyePhone  Resolution 

The  low  resolution  Eyephone  has  442  x  238  primary  color  pixels  per 
eye.  The  total  number  of  primary  color  pixels  is  105,196.  This  means 
35,065  triads,  in  an  array  that  I  am  assuming  is  256  x  137.  The  FOV 
for  each  eye  is  86  degrees  (horizontal)  by  76  degrees  (vertical).  The 
total  horizontal  FOV  is  108  degrees.  The  binocular  overlap  is  64 
degrees. 

Because  of  assumptions  made  above,  the  following  calculations  are 
approximate.  The  total  number  of  pixels  (three  color)  horizontally  is 
256  X  108  /  86  (pixels  per  eye  x  total  FOV  /  FOV  per  eye).  This 
equals  321  pixels.  The  number  of  arc  minutes  per  pixel  horizontally 
is  108  X  60  /  321  or  approximately  20  arc  minutes  per  pixel. 

The  number  of  vertical  three  color  pixels  is  approximately  137.  The 
number  of  vertical  degrees  is  76.  This  gives  approximately  33  arc 
minutes  per  pixel  vertically. 

The  same  calculations,  with  the  same  assumptions,  applied  to  the 
high  resolution  Eyephones  gives  the  following  results. 

Total  number  of  primary  color  pixels  per  eye  is  345,600  in  a 
720  by  480  matrix.  This  gives  about  416  horizontal  by  277  vertical 
three  color  pixels  per  eye.  The  horizontal  FOV  per  eye  is  86  degrees, 
and  for  both  eyes  is  106  degrees.  The  vertical  FOV  is  75  degrees. 

The  total  number  of  horizontal  pixels  is  approximately  513  pixels. 
This  works  out  to  about  12  arc  minutes  per  pixel  horizontally. 

The  number  of  three  color  pixels  vertically  is  about  277.  This 
works  out  to  about  16  arc  minutes  per  pixel  vertically. 


Appendix  J: 

Extending  the  SIMNET  Head>Tracking  Display 


Eztendmg  tihe  SIMNET  Head  Tracking  Display: 
a  Project  Analjmis  by  IST/ySL 

J.  Michael  Moshell 
Curtis  Lisle 
Richard  Dunn-Roberts 
Ernie  Smart 

VSL  Memo  91.6 
2/15/91 

There  is  significant  interest  in  extending  the  functionality  of  the  SIM^TET 
Ml  trainer  to  include  the  Protected  Open  Position  for  the  tank  commander 
(referred  to  as  the  ‘TOP  hatch”).  This  document  includes  the  results  of  a 
preliminary  analysis  of  this  problem. 

The  major  sections  of  the  document  are  as  follows: 

l.  Project  Requirements  and  Description 

n.  Constraints  on  the  Image  Generator  and  Monitors 

m.  Miscellaneous  Concerns  about  the  Design 
IV.  1ST  Estimates  on  Time  and  Cost 


L  Project  Requirements  and  Description 

List  of  Project  Requirements:  The  following  list  covers  the  main  points  of 
theproposed  design.  This  serves  as  a  summary  of  the  overall  project  goals. 

1.  Provide  a  360°  field  of  view  POP  hatch  display. 

2.  Allow  the  commander  the  maximum  possible  vertical  field  of  view 
in  the  POP  hatch  display,  consistent  with  tank  geometry. 

3.  The  POP  hatch  view  will  adjust  for  head  motion  within  the  cupola, 
so  as  to  provide  a  high  resolution  central  display,  medium  resolution 
lateral  (fisplays,  and  no  imagery  outside  of  the  central  viewing  cone. 
This  will  conserve  image  generator  channel  capacity. 

4.  'S^sible  elements  of  the  tank  (tank  hull,  main  gun,etc)  will  be 
visible  in  the  views  firom  the  POP  hatch. 

5.  The  cupola  (including  vision  blocks,  machine  gun  and  hatch  cover) 
will  rotate  under  the  control  of  the  machine  gun  control  handle. 

6.  The  capability  will  be  provided  of  using  the  6  vision  blocks  as  well 
as  the  POP  hatdi  views  simultaneously. 
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Descripti<m  of  the  Requirements:  The  following  paragraphs  provide  more 
detail  cd>out  each  of  the  project  requirements  stated  above. 

1.  Provide  a  36(P  horizontal  field  of  view.  The  display  will  be  created  by 
providing  a  ring  of  ten  27"  (diagonal)  video  monitors  surrounding  the  tank 
commander’s  cupola.  This  will  be  an  extension  of  the  Head  Tracking 
Display  project  (HTD)  currently  underway  at  IST/VSL. 

Referred  to  as  the  Extended  Head  Tracking  Display  (EHTD),  this  new 
project  will  use  the  same  video  switching  technique  employed  in  ISTs 
HTD:  a  Polhemus  magnetic  tracker  is  used  to  switch  video  channels  so  the 
commander  always  has  an  active  video  display  in  the  direction  his  head  is 
facing.  (See  Figure  1). 


Figure  1  -  Top  View  of  the  EHTD 


2.  The  commander  is  given  the  maximum  feasible  FOV  in  the  vertical 
direction:  This  requirement  is  based  on  the  6"  high  opening  available 
under  the  elevated  hatch  and  the  commander’s  head  position  relative  to  the 
radius  of  the  hatch.  The  geometry  involved  is  shown  in  Figure  2. 

Note:  the  aspect  ratio  of  off-thc'shelf  NTSC  monitors  makes  it  limits 
the  vertical  field  of  view  which  can  be  achieved  with  a  single  row  of 
monitors  and  no  optics.  See  section  II  for  details. 


-2  - 


6  inches  high 


Figure  2  -  Vertical  field  of  view 


3.  The  POP  hatch  view  will  adjust  for  head  motion  within  the  cupola:  Since 
the  commander  has  a  range  of  available  head  motion  within  the  cupola 
(approx.  32”  in  diameter  in  SIMNET),  the  view  out  the  monitors  should 
adjust  for  the  correct  head  position.  This  requires  head  position 
information  be  passed  over  to  the  SIMNET  Host  and  used  to  adjust  the 
viewpoint  generated  by  the  SIMNET  CIG  unit.  Engineering  development 
will  be  necessary  to  provide  this  level  of  control  over  the  CIG  (greater  than 
in  the  existing  SIM^T  cupola). 

An  additional  concern  is  the  obstacle  provided  by  the  vertical  edges  of 

the  monitor  housings.  This  is  discussed  in  section  III  below. 

4.  Visible  elements  of  the  tank  (fenders,  gun,etc)  will  be  displayed  in  the 
views  from  the  POP  hatch:  Since  the  commanders  eyepoint  will  be  less 
than  6”  above  the  top  of  the  turret  in  the  POP  hatch  position,  portions  of  the 
tank  win  often  be  visible.  The  visible  tank  features  must  be  modelled  so  they 
will  be  displayed  correctly. 

5.  The  cupola  will  rotate.  The  current  SIMNET  simulator  allows  the 
conomander’s  cupola  to  mechanically  rotate  but  provides  only  a  restricted 
view  out  of  one  vision  block  of  the  cupola.  In  a  real  tank,  the  cupola  is 
sometimes  rotated  so  as  to  position  Uie  machine  gun  out  of  the  forward  line 
of  sight,  or  to  aim  the  machine  gun. 

The  EHTD  project  will  support  cupola  rotation.  Using  an  existing  SIMNET 
huU  and  cupola  mechanism,  the  required  vision  blocks  and  a  simulated 
hatch  cover  and  machine  g\in  mount  will  be  incorporated  so  as  to  rotate 
within  the  panoramic  monitor  display. 

6.  Provide  the  capability  of  using  the  6  vision  blocks  as  well  as  the  POP 
hatch  views  simultaneously:  The  commander  will  be  able  to  support 
training  in  normal  mode  (through  the  6  vision  blocks)  or  POP  hatch 
(through  the  out  the  window  monitors).  Two  competing  designs  are  being 
considered  to  support  this: 
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1.  Have  a  set  of  monitors  dedicated  to  the  vision  blocks  and  a  set 
dedicated  to  the  POP  hatch  display.  A  side  view  of  this  is  shown  in 
Figure  3.  The  monitors  would  have  to  occupy  a  carousel  whicdi 
rotates  along  with  the  cupola  and  vision  blocks. 


hatch  with  6*  clearance 


Figure  3  -  Dual  Set  of  Monitors 


2.  Use  a  single  set  of  monitors  to  support  both  the  vision  blocks  and 
the  POP  hatch  display.  This  reqmres  actual  “periscope-style”  vision 
blocks  and  a  redesign  of  the  approach  used  to  supply  the  vision  block 
views.  This  approach  is  shown  in  Figure  4. 


monitors  for  both  POP 
hatch  and  vision 
blocks. 


Figure  4  -  Single  Set  of  Monitors 


IV.  1ST  Estimates  on  Time  and  Cost 

The  following  spreadsheet  titled  EHTD  Equipment  Pricing  shows 
estimated  costs  for  materials  for  a  one*of-a-ldnd  installation.  These  would 
diminish  by  10  to  20%  in  a  production  operation  for  10  to  50  units. 

The  equipment  estimate  would  need  to  be  increased  by  the  (unknown) 
amount  which  a  contractor  would  charge  for  integrating  the  panoramic 
display  into  a  production-model  SIMNET  tank  hull  for  actual  training 
purposes. 

The  spreadsheet  titled  EHTD  Personnel  Pricing  shows  IST's  projected 
labor  and  overhead  cost  for  performing  the  construction  of  a  proof-of- 
concept  demonstration.  We  have  no  way  to  estimate  the  charges  a  for-profit 
contractor  would  levy  for  similar  services. 

We  estimate  that  six  months  would  be  required  from  receipt  of  a 
commitment  to  completion  and  testing  of  the  EHTD  system.  The  principal 
delays  are  involved  with  the  acqmsition  of  the  IG  and  the  debugging  and 
testing  of  the  host  software,  some  of  which  would  be  developed  in 
collaboration  with  a  subcontractor. 

Tliis  is  an  estimate,  not  a  formal  quotation,  due  to  the  haste  with  which  the 
estimate  was  requiied. 


EHTD  Personnel  Pricing 


Labor  Pricing  for  the  EHTD  Project 
Category 


Proj  Mgr 

Lisle 

6  months 

50% 

Vis  Scientist  Ounn-Roberts  6  months 

50% 

Engineer 

to  hire 

3  months 

50% 

Software  sp. 

to  hire 

3  months 

50% 

elect  constr 

student 

6  months 

50% 

cptr  prog 

student 

3  months 

50% 

host  progr. 

PRC  subcon. 

mech  design 

student 

3  months 

25% 

mech  constr 

student 

3  months 

25% 

consulting 

travel 

supplies 


Loaded: 

16705 

14796 

18604 

11455 

7814 

3907 

12739 

1952 

1952 

10000 

8000 

520 


108444 


